sub show {
    my ($s) = @_ ;
    $s =~ s/([\x00-\x1F\x7F-\xA0])/sprintf("\\x%02X", ord($1))/eg ;
    return $s ;
  } ;