リンク元取得・表示（$ENV{'HTTP_REFERER'}）
#! /usr/local/bin/perl
$referer = $ENV{'HTTP_REFERER'}; #リンク元取得
if(!$referer) {
$referer = "不明";
}
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>リンク元<br>$referer</center>\n"; #リンク元表示
print "</body>\n";
print "</html>\n";
exit;
〔 実行する 〕