I might also point out that you must rewind regular files too in order to read from them again once you have reached EOF.

Also I believe that use Fcntl ':seek'; will clear up your warning.