One way:

use strict;
use warnings;
use Time::Piece;

my $month = 11;
my $t = Time::Piece->strptime($month, '%m');
my $last_day_month = $t->month_last_day();
print "$last_day_month\n";

__END__

30
[download]

To account for leap years, you may need to also specify the year.