fork,

my %kid;
for (1..10) {
    my $pid = fork;
    warn("Can't fork $_"), next if not defined $pid;
    $kid{$pid} = undef, next if $pid;
    undef %kid;
    exec qw/perl myscript.pl/;
}
delete $kid{+wait} while %kid;
[download]