Hi, my first thought is how to clear out your old socket package maybe read "perldoc -q clear" How do I clear a package? Also see IO::Socket::Timeout for an easy way to set a timeout on a socket and call a callback to handle it.