print qq~
Content-type: text/html
... (more headers)

(body)
~;