my $q = new CGI;
my $subject = $q->param('subject');