sub queryToHTML
{
  my ($uri, %param) = @_;
  my ($sepchar) = '?';
  if (!%param) { $sepchar = ''; }
  elsif ($uri =~ /\?/) { $sepchar = '&'; }
  return CGI::escapeHTML(
    $uri . $sepchar . 
      join '&', 
        map {uri_escape($_) . '=' . uri_escape($param{$_})}
            keys(%param)
  );
}