As far as I can see, you shouldn't have problems with memory leaks here. However, instead of a "loop: ... goto loop;" construct, I'd put the entire thing inside a "while(1) { ... }" loop.

Also, unless there's some reason for the response time, I'd increase the sleep to at least 60 seconds.

Thanks,
James Mastros,
Just Another Perl Scribe