TAAFWWTDI - There's always a far worse way to do it...
#!/usr/bin/perl -wT
use strict;
print "Content-type: text/html\n\n";
print <<HEADER;
<html>
<head>
<title>My HTML</title>
</head>
<body>
<p>Here's the HTML:</p>
<textarea cols="50" rows="20">
HEADER
open HTML, "<data.html" or die "Can't open data.html: $!";
while (<HTML>) {
print $_;
}
close HTML;
print <<FOOTER;
</textarea>
</body>
</html>
FOOTER
That works in some browsers, doesn't work in others.
p.s. Make sure to follow grep's suggestion about code tags ;-)
