sub _readindex {
my ($shelf,$args) = @_;
my $frame = \$args->{'frame'};
my $index = \$args->{'index'};
my $buffer = q{};

  open my $INDEX, '<', ${$index} or croak $shelf->_message({msg=>"Couldn't open ${$index} $ERRNO"});
      seek $INDEX, ${$frame} ,'0' ;
      read $INDEX, $buffer, $ACHT;
  close $INDEX or croak $shelf->_message({msg=>"Couldn't close ${$index} $ERRNO"});

return ($buffer);
}