Q:\>perl -MTime::Local -e "print timelocal(0,0,0,31,01,2007)"
Day '31' out of range 1..28 at -e line 1