Select Code to Download

#!/usr/bin/perl

...
  print "Subnet $childpid{$dead} scan completed by child $dead\n" ;
  delete $childpid{$dead} ;
} while (keys(%childpid) > 0) ;