Select Code to Download

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));