use strict;
use warnings;


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