sub mfork ($$&) {
    my ($count, $max, $code) = @_;
 
    foreach my $c (1 .. $count) {
        wait unless $c <= $max;
        die "Fork failed: $!\n" unless defined (my $pid = fork);
        exit $code -> ($c) unless $pid;
    }

    1 until -1 == wait;
}