perl -MDate::Calc=Days_in_Month -e'@l=localtime;printf("Final Day %i\n",Days_in_Month($l[5]+1900,($l[4]+1)%12))'