#!/usr/bin/perl
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 "<a href='http://$ip'>a-$ip b-</a>\n\n";