#! /usr/bin/perl

use strict  ;
use Fcntl 'SEEK_SET'; 
use IO::File ;

my $fh = new IO::File ;

$fh->open("fio.pl") ;

$fh->binmode() ;
$fh->setpos(4) ;

my $in ;
$fh->read($in,2) ;

printf "result: %s\n",unpack("A2",$in) ;


$fh->close() ;