File Perl

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