Using seek function from IO:File
use IO::File; use IO::Seekable; $filehandle = new IO::File; $filehandle->open("<file.txt") or die "Cannot open file.txt"; $filehandle->seek(12, 0); while (<$filehandle>){ print; } $filehandle->close;