perl -le "print $p, ':', ++$i while $p = fork"