use IO::File;
use IO::Seekable;

$|++;       # turn off buffering...

my $handle = new IO::File;
$handle->open("<FileHello.txt")or die("error $!\n");
$handle->seek(12,0);
while(<$handle>){
        print;
        }
$handle->close;

##</code><code>##