Select Code to Download

my %params = CGI::Vars;
foreach my $p (keys %params) {
...
}

print "these params failed: ", join(", ", @error_params);

my %params = CGI::Vars;
if (scalar(keys %params) < $no_expected) {
  print "error, you missed something.";
}