CGI Perl

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


Today is $now


EOF