open OUT, '>', 'forklist.txt';
print "computer$_\n" for (1..10000);
close OUT;