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