sub enc_hex {
  my $out = unpack('H*', (shift));
  $out =~ s/\G(..)/\\$1/g;
  return $out;
}