while((my $pid = waitpid(-1, &WNOHANG)) > 0) {
  $children{$pid}=$?;
# $children--;                         # pushing your luck
# print $children children running\n"; # really pushing
}