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