Select Code to Download

# Your code
use CGI;
...
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
}

my $comments = $q->param('comments');

my %params = map { $_ => $q->param($_) } $q->param;

# comments stored in $params{'comments'}