Select Code to Download

First try

...
The statement "seek(GWFILE, 0, 1)" doesn't change the current position
+,
but it does clear the end-of-file condition on the handle, so that the
next <GWFILE> makes Perl try again to read something.