Obviously the first thing to change is the $ping_cmd which is right for my Windows box but probably wrong for your machine.

If you're going to ping machines from a Perl script, why not use Net::Ping instead of an external program?

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg