ホスト名取得・表示（gethostbyaddr）
#! /usr/local/bin/perl
$addr = $ENV{'REMOTE_ADDR'}; #IPアドレス取得
$host = gethostbyaddr(pack("C4",split(/\./,$addr)),2); #ホスト名取得
if(!$host) {
$host = "不明";
}
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>ホスト名を表示</title>\n";
print "</head>\n";
print "<body>\n";
print "<center>訪問者ホスト名 ： $host</center>\n"; #ホスト名出力
print "</body>\n";
print "</html>\n";
exit;
〔 実行する 〕