#!/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),"

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