print $q->header( -type =>'text/html'); print <<"EODEOD"; mytitle
EODEOD ...... print '
';