Select Code to Download

use strict;
use warnings;
...
   $t->year
   for 1..$t->month_last_day
;

use Time::Piece;

...
   ;
   $t += Time::Piece::ONE_DAY;
}