#!/usr/bin/perl --
use strict;
use warnings;
use CGI();
my $q = CGI->new;
print $q->header, $q->start_html,
$q->escapeHTML('<><><><><><>'),
$q->escapeHTML( $q->param('comments'), ''),
$q->end_html;
__END__
Content-Type: text/html; charset=ISO-8859-1
Untitled Document
<><><><><><>