Select Code to Download

sub cleanup {
    while ((my $kpid = waitpid(-1,WNOHANG)) > 0) {
...
        $kidcount--;
    }
}

while ( $kidcount > 0) {
  my $secs = sleep 10;
...
        print STDERR "\n";
  }
}

sub killMyself {
  if ($waitcount > 6) {
...
  }
  $waitcount++;
}