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