Shell Programming and Scripting

use Net::Ping;
#
$filename = <@ARGV>;
open(CONT, $filename) or die "can't open $file: $!";
$bndry++ while <CONT>;
print $bndry;
close(CONT);
#
open(FILE, $filename) or die "can't open $file: $!";
while(<FILE>) {
 $ip = $_;
  chomp $ip;
  if (fork() == 0) {
$pingo = Net::Ping->new();
 if ($pingo->ping("$ip")) {print "Pinging $ip:\t Status:\tOk\n";}
 else {
     print ("Pinging $ip:\t Status:\tNot Ok\n");
 }
 $pingo->close();
    exit;
  }
  $children++;
 # if ($children >= $bndry) {
  if ($children >= 51) {
    wait();
    $children--;
  }
}
while ($children > 0) {
  wait();
  $children--;
}
exit 0;