use Time::Piece;
my $t = localtime;
print join(', ', $t->day_of_week, $t->day, $t->fullday), "\n";
# Outputs 2, Tue, Tuesday