#!/usr/bin/perl

# trying out Bit::Vector

use Bit::Vector;
use Bit::Vector::String;

my $bin_string = "0110000101100010";
my $b = Bit::Vector->new_Bin(length($bin_string), $bin_string);
print " bit vector is '" . $b->to_Bin . "'\n";
print " packed is '" . $b->String_Export('p') . "'\n";