This is something that I do in one of my tools that I wrote:

open(FOUT,"> somefile.html" or die "$!";

print FOUT qq(
<table width="770" cellpadding=0 ... 

-------8< snip! 8<-----------------
[download]

other variants of this I have seen is to store the intended output in a single variable and just print the variable. There are many ways to do this.

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Peter L. Berghold --- Peter@Berghold.Net
"Those who fail to learn from history are condemned to repeat it."
[download]