my $escaped = $content;
  $escaped =~ s/&/&/g;
  $escaped =~ s/</&lt;/g;
  $escaped =~ s/>/&gt;/g;
  print "<textarea>$escaped</textarea>";