# from O'REILLY's book
$thisDay = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[(localtime)[6]];  # will return the current day of the week
# localtime is typically used as follows:
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime;