use Proc::Queue size => 4, debug => 1; package other; use POSIX ":sys_wait_h"; # imports WNOHANG # this loop creates new childs, but Proc::Queue makes it wait every # time the limit (4) is reached until enough childs exit foreach (1..100) { my $f=fork; if
