#! /usr/bin/perl

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

my $fb = File::Binary->new("fio.pl");

$fb->seek(10, SEEK_SET ) ;

$fb->close ;