I've yet to delve into socket programming, so can't comment on the code.

But... if it's an option, a filtered packet capture using something like Sniffer, tcpdump, or sniffit could easily yield clues to the intermittant behavior.
    cheers,
    Don
    striving for Perl Adept
    (it's pronounced "why-bick")