in reply to Last day of the month. Any shorter

With Date::Calc:

perl -l -MDate::Calc=Days_in_Month -e 'print Days_in_Month(@ARGV)' 2004 2