my $self = shift; my $cgi = $self->query(); my $subj = $cgi->param( 'subject' );