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

##</code><code>##

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