include_file:

sub printstatement {
print <<'END';
<table>
<tr>
<td valign="top">
END
}

perlscript:
include include_file; 
& printstatement;
spit out some stuff;