can i use something like:

Yes.

Month '12' out of range 0..11 at test.perl line 33

Subtract 1 from the month and 1900 from the year before passing to timelocal.