Help for this page

Select Code to Download


  1. or download this
    s/</&lt;/ for @HTML;
s/>/&gt;/ for @HTML;
s/&/&amp;/ for @HTML;

print '<textarea>', join("", @HTML), '</textarea>';
  2. or download this
    use CGI qw(:standard);
print textarea('', escapeHTML(join '', @HTML));