use Date::Pcalc qw( Days_in_Month );
$days = Days_in_Month($year,$month);