URL取得・表示（$ENV{'HTTP_HOST'}, $ENV{'REQUEST_URI'}）
#! /usr/local/bin/perl
# HTML出力
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>URLを取得・表示</title>\n";
print "</head>\n";
print "<body>\n";
# URL取得
$url = "http://" . $ENV{'HTTP_HOST'} . $ENV{'REQUEST_URI'};
# URL出力
print "このページのアドレス<br>\n";
print "$url<br>\n";
# HTML出力
print "</body>\n";
print "</html>\n";
exit;
〔 実行する 〕