my $day = qw(Sun Mon Tue Wed Thu Fri Sat)[(localtime)[6]];