The call to seek() with those parameters is not doing what you want, then. See seek (or try perldoc -f seek on your system) to see what the arguments for seek() are.