perl多线程ping检测C段存活主机

#!/usr/bin/perl
use threads;
use Net::Ping;

$p=Net::Ping->new();
sub slep_ping{
  local($host_ip)=shift;
  if($p->ping($host_ip))
  {
     print "$host_ip is access---------OK!n";
  }else{
     print "$host_ip is No accessn";
  }
  $p->close();
}

sub ip_count{
  while($ip_start != $ip_end){
    push @ip_group,("$ip."."$ip_start");
    $ip_start++;
  }
  return @ip_group;
}

system('clear');
print "please set the IP(C):";
chomp($ip=<STDIN>);
print "StartIP:";
chomp($ip_start=<STDIN>);
print "EndIP:";
chomp($ip_end=<STDIN>);

my $thread_num=0;
&ip_count;
foreach $key (@ip_group){
   if($thread_num >= 200){
        for my $t (threads->list(threads::joinable)){
               $t->join();
               $thread_num--;
        }
        redo;
   }
   threads->create(&;slep_ping,$key);
   $thread_num++;
}
for my $t(threads->list()){
   $t->join;
}