use Date::Calc qw(
    Days_In_Month
);

if ($days > Days_In_Month($year, $month))
{
    # Bitch and moan
}