Hi Markus!
Da $ENV{'REMOTE_HOST'} nicht immer (fast nie) den gewünschten Wert enthält kannst Du Dir den Host so ermitteln:
$host="Host unbekannt";
($host) = (gethostbyaddr(pack("C4", split(/./, $ENV{'REMOTE_ADDR'})), 2))[0];
Das geht nur dann nicht, wenn der host z.B. hinter einer Firewall steht.
Gruß Frank