my @wday = qw/Monday Tuesday Wednesday Thursday Friday Saturday Sunday/;
printf "Today is %s.\n", $wday[ (localtime(time))[6] - 1 ];

##</code><code>##

my @date = split(" ", localtime(time));
my $day = $date[0]; 
my %days = ();
##</code><code>##

my %days = map { substr($_,0,3) => $_ } 
    qw/Monday Tuesday Wednesday Thursday Friday Saturday Sunday/;