Help for this page
seek(GWFILE, 0, 1);
for (;;) { ... seek(GWFILE, $curpos, 0); # seek to where we had been }