my (@myday) = (Sunday,Monday,Tuesday,Wednesday,Thrudsay,Friday,Saturda
+y) ;
my (@mymonth) = (January,February,March,April,May,June,July,August,
                    September,October,November,December) ;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time
+);
print "@myday[$wday], $mday @mymonth[$mon], ", $year+1900, \@ $hour:$m
+in:$sec $ENV{'TZ'}";
[download]