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