#! /usr/bin/perl

use strict;
use warnings;

use Fcntl 'SEEK_SET'; 

open local *IN, "<", "fio.pl" ;        # XXX Check for errors

binmode IN ;

my $reclen = 1 ;
my $binrec ;

while ( read(IN, $binrec, $reclen) ) {
    print "".unpack("A",$binrec) ;     # XXX What's with '"".'?
}

seek(IN, 10, SEEK_SET);                # or whatever