Select Code to Download

sub new
{   #object blessing stuff skipped here...
    $self->_init(@_);
...
    $self->{'query'} = new CGI qw(param);
#...etc...
}

my ($comment) = $requestobj->param('comment');