use IO::File;use IO::Seekable;$filehandle = new IO::File;$filehandle->open("$filehandle->seek(12, 0);while (<$filehandle>){ print;}$filehandle->close;