- or download this
my $last_day_month = $t->month_last_day($month); #??
- or download this
$last_day = Time::Piece->new->month_last_day;
- or download this
#!/usr/bin/perl
use strict;
...
__END__
- or download this
$ perl 1140366.pl
2015/01: 31
...
2016/01: 31
2016/02: 29
$