use strict;
use CGI qw(:standard escapeHTML);

my $q = new CGI;
my $test = "What's the big''s deal?!!?? - <script>TEST</script>";
 my $comments = $q->escapeHTML( $test ) || '';

print header();
print "test: $comments";