print "Content-type: text/html\n\n" or
print $q->header();

##</code><code>##

print "Content-type: text/plain\n\n"