use POSIX 'strftime';
print strftime("Standard Time is %r.\n", gmtime);

##</code><code>##

my ($sec) = gmtime;
print <<"ETXT";
Content-Type: Text/html\n\n
<b><font face="courier" color="white" size=2>$sec</font></b>
ETXT