my $today = localtime;
my ($day) = $today =~ m/^(\w{3})/;

##</code><code>##

use POSIX qw(strftime);
my $dow = strftime "%a", localtime;