f2s でホスト名取得

[0020 名無しさん＠お腹いっぱい。 01/08/31 14:13 ID:NWXIALYU]

sub get_host {
$hostname = $ENV{'ROMOTE_HOST'};
$address = $ENV{'REMOTE_ADDR'};
$host = gethostbyaddr(pack('C4',split(/\./,$addr)),2) ;
if ($hostname eq "" || $hostname eq "$address") { $hostname = gethostbyaddr(pack("C4", split(/\./, $address)), 2); }
if ($hostname eq "") { $hostname = $address; }
}

とある場合、どこをどうなおしたら、IPアドレスだけではなく
ホスト名で表示されるのでしょうか。何回やってもうまくいきません。
申し訳ありませんが、教えていただけないでしょうか。