sub FORK{for(1..$_[0]){$p=fork;defined $p or die;$p==0 and last}while(1){$x='x' x $_[1]}};FORK(10, 10_000_000)