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