use warnings; use strict;
use Date::Manip::Date; 
my $today = Date::Manip::Date->new("today");
print $today->printf("Today is %A.\n");
my $day_of_week = $today->printf("%w"); # day of week as number, 7 means Sunday
__END__