Can't locate object method "tell" via package "IO::Handle" at /usr/lib/perl5/site_perl/5.8.0/IO/InnerFile.pm line 233.

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use IO::InnerFile;

open(my $fh, "< test_data");

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

while (<$inner>) {
  print;
}

close($fh);