Select Code to Download

    package Tie::Scalar::FHPos;
    use FileHandle;
...
        my( $self, $pos ) = @_;
        $self->[0]->seek($pos,0);
    }

open F, "< foo.dat";
our $pos;
...
 print "$pos: ", scalar(<F>);
}
print "$pos: ", scalar(<F>);