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