use strict;
use warnings;

my $max_process = 10;
my $processes = 0;
for my $count (1..100){
    wait if $processes >= $max_process;
    sleep(rand(3)),print($count."\n"),exit unless my $pid = fork;
    $processes ++;
}