Help for this page
my $stream = BitStream::new("bigbinfile");
package File::Bitstream; use strict; ... my $o=File::Bitstream->new($0); my $bits=''; print $bits,$/ while defined($bits=$o->get_bits(13));