in reply to How do I make a tcp socket heartbeat?
In case it's of use Re: Perl Best Practices - Loop Labels contains some sample working code for a mock syslog server I wrote a few years ago.