Select Code to Download

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

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