$myday{0}="Sunday";
$myday{1}="Monday";
$myday{2}="Tuesday";
$myday{3}="Wednesday";
$myday{4}="Thursday";
$myday{5}="February";
$myday{6}="Saturday";

$mymonth{0}="January";
$mymonth{1}="February";
$mymonth{2}="March";
$mymonth{3}="April";
$mymonth{4}="May";
$mymonth{5}="June";
$mymonth{6}="July";
$mymonth{7}="August";
$mymonth{8}="September";
$mymonth{9}="October";
$mymonth{10}="November";
$mymonth{11}="December";


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