open (FILEHANDLE, "<file.txt") or die "Cannot open file.txt"; seek FILEHANDLE, 12, 0; print tell FILEHANDLE; close (FILEHANDLE);