use BitStream;
...
...
my $stream = BitStream::new("bigbinfile");
...
my $bitstr = $stream->get_bits(128);