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

##</code><code>##

use Date::Calc qw(:all);
my $day = Day_of_Week_to_Text(Day_of_Week(Today()));