Select Code to Download

my $last_day_month = $t->month_last_day($month); #??

$last_day = Time::Piece->new->month_last_day;

#!/usr/bin/perl
use strict;
...

__END__

$ perl 1140366.pl
2015/01: 31
...
2016/01: 31
2016/02: 29
$