Help for this page

Select Code to Download


  1. or download this
    use POSIX 'strftime';
print strftime("Standard Time is %r.\n", gmtime);
  2. or download this
    my ($sec) = gmtime;
print <<"ETXT";
Content-Type: Text/html\n\n
<b><font face="courier" color="white" size=2>$sec</font></b>
ETXT