It is very hard to be sure, but to me this does not sound like a problem with Perl or with your scripts. It could be, but I just get the feeling from the nature of your error messages that maybe it's not.

connection lost with http server due to timeout

I'd be looking into what http server the script is trying to connect to, and telnet serveraddress 80 and see if maybe the problem really is that for some reason the live box can't connect to that server.

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
[download]