#!c:/ActivePerl/bin/perl.exe$now=localtime;$myname="AAA";print <Content-type:text/htmlToday is $nowEOF
Today is $nowEOF