in reply to Last day of the month. Any shorter
perl -l -MDate::Calc=Days_in_Month -e 'print Days_in_Month(@ARGV)' 2004 2