#!/usr/bin/perl # print CGI header print "Content-Type: text/html\n\n"; # now print the time print " \n"; print "Current Date and Time\n"; print " \n"; print "

The date is now

\n"; print "

", $time = (localtime), "

\n"; print "\n\n";