gudn tach!
Tipp: Rechne mit ganzen Tagen, nutze Date::Calc von Steffen Beyer.
stimmt, das waere hier wohl am einfachsten umzusetzen (da logischerweise die anzahl der tage eines monats gleich dem letzten tag desselben monats ist):
#!/usr/bin/perl
use strict;
use warnings;
use Date::Calc qw(Days_in_Month);
print Days_in_Month(2013, 3),"\n";
prost
seth