Benutz mal "seek" anstatt "sysseek" in deinem Bereits oben gepostet perldoc steht ja bereits drin das man "sysseek" nicht mit "print", <> etc. mischen sollte...

perldoc.perl.org/functions/sysseek.html

Quote

sysseek() bypasses normal buffered IO, so mixing this with reads (other than sysread, for example <> or read()) print, write, seek, tell, or eof may cause confusion.

Hab mir jetzt aber nicht angeschaut was dein Code macht...