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

##</code><code>##

use FileHandle;
...
OUT->autoflush();