my $h = unpack( 'H*', pack('b*', unpack('B*', $bitstring)) ) ;