I wrote:

"Please provide a short script that reproduces your problem. How to do this is explained in "How do I post a question effectively?"."

Had you followed that link, you would have seen, in big, friendly letters, at the top of the screen:

Paste actual code that reproduces the problem ...

You haven't posted actual code. You haven't posted code that reproduces your problem.

In addition, hundreds of lines of code is not a "short script": a dozen or so lines normally suffices for this sort of task. If you ever do need to post large tracts of code, data, etc., wrap it in <spoiler>...</spoiler> or <readmore>...</readmore> tags: see "Markup in the Monastery" and "Writeup Formatting Tips".

What you have posted appears to have been copied from your browser. It looks like the code you posted a couple of hours before in this thread; it includes all the '+' signs at the beginning of lines (that indicate that a line wrapped) which are not part of the Perl code.

If you can post a short script that shows Time::Local::timelocal() giving your "Timelocal out of range message", I'll be happy to look at it further.

In writing a short script to reproduce your problem, you'll often gain insights into why your original code was having issues.

Something else you can do is to add print statements to your original code to see what actual values are being passed to your functions. This can often point to where the problem lies.