BEGIN {
    use IO::Seekable;
    push @IO::Handle::ISA, 'IO::Seekable';
}

use strict;
use warnings;

use Data::Dumper;
use IO::InnerFile;

open(my $fh, $0);

my $inner = IO::InnerFile->new($fh, '100', '50');

while (<$inner>) {
    print;
}

close($fh);

__output__

 Data::Dumper;
use IO::InnerFile;

open(my $fh, $0