Select Code to Download

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

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