#!/usr/local/bin/perl
$| = 1;
print "Content-type: text/html\n\n";
print "\n\n\n";
print "The CGI Clock\n";
print $ENV{'BASE'}."\n\n\n\n";
print "\n";
print "Jim Lucas' CGI Clock
\n";
print "
\n";
print "The current date and time are: ";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime;
$mon++;
$date = sprintf("%02d/%02d/%2d",$mon,$mday,$year);
$time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
print "$date $time\n";
print "
\n";
print "\n\n\n";