Help for this page
vec ($bitstring, $offset++,8) = $_ ;
my $bits = unpack("x1 C1", $bitstring);
my $bits = unpack("x1 A1", $bitstring);