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