sub output_html_with_http_headers ($$$;$) {
my ( $query, $cookie, $data, $status ) = @_;
$data =~ s/\&\;amp\; /\&\; /;
$data =~ s/\&\;amp\; /\&\; /g;
output_with_http_headers( $query, $cookie, $data, 'html', $status );
}
-