# Your code
use CGI;

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
        ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
}

##</code><code>##

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

##</code><code>##

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

# comments stored in $params{'comments'}