open F, '<', 'e:\100MB' or die $!;
binmode F;
{ local $/ = \(100*1024*1024); $data = <F> };

sub bits_of_chunk{
    my( $chunk, $start, $end ) = @_;
    join'', map{ 
        vec $data, $_, 1 
    } ($chunk * 16 * 8 + $start)
      .. 
      ($chunk * 16 * 8 +$end);
};

print bits_of_chunk( 6543210, 49, 69 );

000000000000000000000