Answer 1: localtime returns a formatted date string if it knows you want a scalar rather than an array.

Answer 2a:

my $day = qw(Sun Mon Tue Wed Thu Fri Sat)[(localtime)[6]];
[download]

Answer 2b:

use Date::Calc qw(:all);
my $day = Day_of_Week_to_Text(Day_of_Week(Today()));
[download]