sub encode {
  $param = shift;
  $param =~ s|\?|55X77X85X4|g;
  $param =~ s|\&|33X56X89X3|g;
  return $param;
}
sub decode {
  $param = shift;
  $param =~ s|55X77X85X4|\?|g;
  $param =~ s|33X56X89X3|\&|g;
  return $param;
}