sub esc2HTML {                     # Convert plain text to HTML (&s, <s, >s, "s, double spaces, etc.)
     my $retval = shift;
     $retval =~ s/\&/\&amp\;/g;
     $retval =~ s/\</\&lt\;/g;
     $retval =~ s/\>/\&gt\;/g;
     $retval =~ s/\"/\&quot\;/g;
     $retval =~ s/  /\&nbsp\; /g;
     $retval =~ s/\n\n/\n/g;
     $retval =~ s/\n/\<br\>\<br\>\n/g;
     return $retval;
}