print $q->header('text/html');

##</code><code>##

print "Content-type: text/html\n\n";