my $hexform = '0x' . unpack "H*", $binary;