use CGI qw(:standard); print textarea('', escapeHTML(join '', @HTML));