Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print "Content-Type: text/html\n\n";
print "<p>resource input</p>\n";
print "<h1>resource</h1>\n";

print << "END_OF_HTML";
Content-Type: text/html\n\n
<p>resource input</p>
<h1>resource</h1>
END_OF_HTML