in reply to Strange saving behaviour

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/;