HTML with here-docs

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