#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
$mydate=`date`;
chop $mydate;
print "\n";
print "\n";
print "Hello World!\n";
print "\n";
print "\n";
print "Hello World!
\n";
print "
\n";
print "Today is: $mydate\n";
print "
\n";
print "\n";