print [localtime]->[6], "\n";
# Outputs 2 for me, today, because it's Tuesday and weeks start at 0 for Sunday.

##</code><code>##

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