Peek inside Net::Ping's source code, and see how tcp pings are implemented. That's the idiom for tcp timeouts, and is an elegant way of doing them safely.

-nuffin
zz zZ Z Z #!perl