open (PAGE, "$file");
@HTML = <PAGE>;
close (PAGE);

print <<PART1;
<textarea style="{border: solid 1 #000033; width: 900; height: 550;}" name="text">
PART1

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

print <<PART2;
</textarea>
PART2