#!/usr/bin/perl -w

use strict;
use CGI qw(:standard);

use vars qw($q);

 my $comments = CGI::escapeHTML($q->param( 'comments' )) || '';