use strict;
use threads;
use Thread::Queue;
use Net::Ping;

my $ThreadCount = 12;
my @Threads;
my $ServerQueue = Thread::Queue->new;
my $ResultQ     = Thread::Queue->new;

my @Servers;

push @Servers, qq(4.2.2.$_) for (1..254);

foreach my $Item (@Servers) {
   $ServerQueue->enqueue($Item);
}

for (1..$ThreadCount) {
   my $Thread = threads->new(\&Process, $ServerQueue);
   push (@Threads, $Thread);
}

foreach my $Thread (@Threads) {
   $Thread->join();
}

print "\n--results---\n";
while (my $target = $ResultQ->dequeue_nb){
      print "  $target\n";
}
#####################################
sub Process {
   my $ServerQueue = shift;
   my $pingobj = Net::Ping->new("icmp",5,100);

   while (my $Server = $ServerQueue->dequeue_nb()) {
       if ($pingobj->ping($Server)) {
           #ping was good
            $ResultQ->enqueue ($Server);
            threads->yield();
       } else {
           #ping was bad
       }
   }
}