print <<"END_OF_HTML"; # double-quotes allows interpolation ... END_OF_HTML ##

##

use CGI qw(:standard);
print header,
      h1($some_title),
      hr;
# etc...