use strict;
use CGI;

my $q = new CGI;
my $content = qq(People "Have" many "problems");

print $q->header;
print $q->escapeHTML($content);

##</code><code>##

People &quot;Have&quot; many &quot;problems&quot;