sub bin2hextext {
  join '', '0x', unpack("H*", $_[0] );
}