アクセス日時を表示（localtime time）
#! /usr/local/bin/perl
# 日時取得
($sec, $min, $hour, $day, $mon, $year) = localtime time;
# HTML出力
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>日時を表示</title>\n";
print "</head>\n";
print "<body>\n";
printf "<center>%d年%d月%d日 %d時%02d分%02d秒</center>\n",
$year += 1900, ++$mon, $day, $hour, $min, $sec;
print "</body>\n";
print "</html>\n";
exit;
〔 実行する 〕