http://www.perlmonks.org?node_id=286569


in reply to View The HTML ???

Absolutely Wonderful, thanks a ton ...

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