File Perl

open (FILEHANDLE, "seek FILEHANDLE, 12, 0;
print tell FILEHANDLE;
close (FILEHANDLE);