File Perl

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