Buffering... in a word... buffering...
add this after you open you file handle:
select((select(SAVE), $| = 1)[0]);
Oh, and do look
here on
Merlyn's site for a really (to me)
impressive way to calculate primes
GreetZ!,
print "profeth still\n" if /bird|devil/;