Works as designed and documented. Maybe you didn't mean "02" as the month index but "01" (for February)?

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