#! /usr/bin/perl

use strict  ;
use Fcntl 'SEEK_SET'; 
use IO::Seekable;          # not sure if this will help
our @ISA = qw(IO::Seekable);

open IN,"<fio.pl" ;

binmode IN ;

my $reclen = 1 ;
my $binrec ;

while ( read(IN, $binrec, $reclen) ) {
	print "".unpack("A",$binrec) ;
}

....... # seek ?