sub hex2bin {
  my ($hexstr) = @_;
  return pack "H*", $hexstr;
}