Just FYI, there is no need for the Net::Ping->new to be in the loop. It can be outside the foreach.

--traveler