You'll probably do alot better using Net::Ping. It's whole purpose is to see whether a remote host is reachable.

If things get any worse, I'll have to ask you to stop helping me.