use strict;
use Calendar::Simple;

my $mon = (localtime)[4] + 1;
my $yr = ((localtime)[5] + 1900);

my @month = calendar($mon, $yr);
print $month[-1][-1],"\n";