print "<pre>$text</p>";

##</code><code>##

print "<pre>", CGI::escapeHTML($text), "</pre>";