auch das geht mit Date::Calc!

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

Aber beachte: so einfach ist das nicht. Was passiert, wenn du mal 1000 Tage abziehst? Dann müsstest du ja mehrmals die Anzahl der Tage im Monat abziehen...