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