IPアドレス取得・表示（$ENV{'REMOTE_ADDR'}）
#! /usr/local/bin/perl
# HTML出力
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>IPアドレスを表示</title>\n";
print "</head>\n";
print "<body>\n";
# ユーザーエージェント出力
print "訪問者IPアドレス：$ENV{'REMOTE_ADDR'}<br>\n";
# HTML出力
print "</body>\n";
print "</html>\n";
exit;
〔 実行する 〕