Select Code to Download

use Net::Ping;
my $p;
...
    print "$_ is not alive \n";
      }
   }

use AnyEvent;
use AnyEvent::Ping;
...
}
$c->recv;