mkhtml.cgiのsource

#!/usr/bin/perl

my $date = time();

my @dates = localtime($date);

print "Content-type: text/html\n\n";
print "<html>\n";
print "<head><title>CGI-TEST</title></head>\n";
print "<body>\n";
print "投稿ありがとう<br/>\n";

print "ただいま".$dates[2]."時".$dates[1]."分".$dates[0]."秒です．";

print "<br/>";

print "あなたのPCのIPアドレスは，".$ENV{'REMOTE_ADDR'}."です。";

print "</body>\n";
print "</html>";

exit 0;