use Date::Calc qw/:all/;

my $days = Days_in_Month($year,$month)