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
;