#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "
\n";
print "CGIのサンプル
\n";
print "
\n";
print "現在時刻の表示
\n";
# localtime関数により表示します。
$ndate = localtime;
print "date = $ndate
\n";
print "
\n";
print "現在時刻の表示
\n";
# UNIXの標準コマンドを利用して表示します。
print `date`."
";
# フォーマット指定もできます。
print `date +%m/%d' '%H:%M`."
";
print "
\n";
print "このCGIのソース:time01.cgi
\n";
print "\n";