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