open OUTFILE, ">result.html" or die "Can't write to result.html: $!\n"; select OUTFILE; print "
"; print "other html stuff"; ####
print <
HTML with here-docs
...
... more stuff
HTML
# do some processing
for my $item (@items_from_somewhere) {
print "$item\n";
}
print <
HTML