#quick sample of what I have a heredoc doing: 
print FILEHANDLE << "END_DATA";
<TABLE>
<TR>
	<TH COLSPAN="2">
		<A HREF="stuff"><IMG SRC="an_image.gif" BORDER="0" ALT="Hi!"></A>
	</TH>
</TR>
<TR>
	<TH COLSPAN="2">
		$variables{whatever}
	</FONT>
	</TH>
</TR>
<TR>
	<TD VALIGN="top">
	</TD>
	<TH ROWSPAN="2">
		$details<br>
		$moreDetails<br>
	</FONT>
	</TH>
</TR>
<TR>
	<TD>
		$variables{evenMoreDetails}	
	</FONT>
	</TD>
</TR>
<TR>
	
	<TH COLSPAN="2">
		<FORM ACTION="../cgi-bin/some.cgi?somequery" METHOD="POST">
			<INPUT TYPE="HIDDEN" NAME="item" VALUE="$variables{aVariable}">
			Some Text: <INPUT TYPE="TEXT" VALUE=1 NAME="someText" SIZE="1">
			<INPUT TYPE="submit" VALUE="Submit">
	</A>	</FORM>
	</FONT>
	</TH>
</TR>
</TABLE>
END_DATA