Select Code to Download

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

my @date = split(" ", localtime(time));
my $day = $date[0]; 
my %days = ();

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