#!/usr/local/bin/perl

print "Content-type: text/html\n\n";
$mydate=`date`;
chop $mydate;

print "<html>\n";
print "<title>\n";
print "Hello World!\n";
print "</title>\n";
print "<body bgcolor=black text=red>\n";
print "<H2>Hello World!</H2>\n";
print "<hr>\n";
print "Today is: $mydate\n";
print "<hr>\n";
print "</html>\n";
