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

Today is $now
EOF