10 lines
145 B
Perl
10 lines
145 B
Perl
|
#!c:/ActivePerl/bin/perl.exe
|
||
|
|
$now=localtime;
|
||
|
|
$myname="AAA";
|
||
|
|
print <<EOF;
|
||
|
|
Content-type:text/html
|
||
|
|
<body>
|
||
|
|
<p>
|
||
|
|
Today is $now<br>
|
||
|
|
</body>
|
||
|
|
EOF
|