in reply to timeout problem

Well, the post you code is a syntax error. However, there's not enough information to answer your question. You see, ERROR:500 read timeout at program.pl is not a Perl error, it's an error thrown by some user code. Most likely, it's on line 76 of program.pl or in some module that gets called on line 76 of program.pl.

Now, since most modules try to give useful error messages, I expect the module is doing some read operation that times out. But maybe the module gives that message if it doesn't have enough blue socks. Who knows? You don't tell us what the module is. Maybe the module has a way of setting timeouts; but maybe it doesn't. If it does, it's likely to be found in its manual page.

Abigail