use constant WEEKDAYS => qw(
 Sunday Monday Tuesday Wednesday Thursday Friday Saturday
);
 
 print "Today is ", (WEEKDAYS)[ (localtime)[WDAY] ], ".\n";