It seems that if I convert this line in my code from:

my $last_month_num = $t->add_months(-1)->mon;
[download]

to:

my $last_month_num = sprintf("%02d",$t->add_months(-1)->mon);
[download]

It should take care of the problem!