Select Code to Download

sub BitStream::make_bitstream {
   my $filename = shift;
...
$get_bits = BitStream::make_bitstring("foo.dat") or die "open failure:
+ $!";
$onebit = $get_bits->();
$twobits = $get_bits->(2);