Hallo Rainer!
Perl bietet 2 eingebaute Funktionen dazu:
gethostbyaddr Network get host record given its address
gethostbyname Network get host record given name
Beispiele:
($host) = (gethostbyaddr(pack("C4", split(/./, $ENV{'REMOTE_ADDR'})), 2))[0];
($a,$b,$c,$d) = unpack("C4",gethostbyname($url));
Hinweis: $url darf nur den Rechnernamen, nicht die Pfad-/Dateiname enthalten. Also so:
$url = "www.teamone.de";
nicht so
$url = "http://www.teamone.de/selfaktuell/forum/messages/70048.html"
Gruß Frank