POSITION and WHENCE reversed - it ought to be: seek $fh, 0, SEEK_SET;