## first, reap any zombies so child CPU is proper: { my $kid = waitpid(-1, 1); if ($kid > 0) { redo; } }