($html = <<'END_OF_HTML') =~ s/^\s+//gm; Content-type: text/html END_OF_HTML print $html;