You might be able to get some mileage out of a script I wrote and uploaded to perlmonks a while back: pinger - ping a range of hosts.

g r i n d e r