use strict; use warnings;

#require "lib_pl";

print "Content-Type: text/html\n\n";

use Time::localtime;

my $tm = localtime();

my $time = sprintf("%04d%02d%02d.%02d%02d%02d", $tm->year + 1900, $tm->mon+1, $tm->mday, $tm->hour, $tm->min, $tm->sec);
print "$time\n";

open STDERR, ">&STDOUT";
$| = 1;

print "hello world\n";