use HTML::Entities ();
 ... HTML::Entities::encode_entities($whatever);


##</code><code>##

use CGI;
my $cgi= CGI->new();
print $cgi->header();
# etc...