Select Code to Download

#!/usr/bin/perl
use warnings;
...
</body>
</html>
HERE

print <<END_HTML;
Content-type: text/html
...
</HTML>
END_HTML