";
#first, get the values from the localtime function
($sec,$min,$hr,$mday,$mon,$year,$wday) = localtime(time);
# now let's make them pretty, suitable for display...
$today = (Sun,Mon,Tues,Wed,Thurs,Fri,Sat)[$wday];
$thismon = (Jan,Feb,March,April,May,June,July,
Aug,Sep,Oct,Nov,Dec)[$mon];
$year += 1900;
print "$today, %thismon $mday, $year at precisely
$hr:$min:$sec\n":
print "