#!/usr/bin/perl -w

print "Content-type: text/html\n\n";
my $hostname = "jmbnet2.dyndns.org";
my $address  = gethostbyname($hostname);
# Das Ergebnis von gethostbyname() auseinanderdroeseln
my @bytes    = unpack('C4',$address);
# Mit Punkten zur IP-Adresse zusammensetzen
my $ip       = join(".", @bytes);

print "$ip\n";