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