in reply to getting day of the week
I have one word for you: Date::Calc
Otherwise:
my @days = qw ( Sun Mon Tue Wed Thur Fri Sat ); my $weekday = $days[$wkday]; [download]