use strict; use warnings; use Time::Piece; my $t = localtime; my @d = $t->day_list; printf "%s, %s %d, %d\n\n\n", $d[($_ + 1) % 7], $t->fullmonth, $_, $t->year for 1..$t->month_last_day ; #### use Time::Piece; my $t = localtime; my $last = $t->month_last_day; $t -= Time::Piece::ONE_DAY * ($t->mday - 1); for (1..$last) { printf "%s, %s %d, %d\n\n\n", $t->fullday, $t->fullmonth, $t->mday, $t->year ; $t += Time::Piece::ONE_DAY; }