my @required = qw(name site siteid email email2 pass repass);
my $req_err;
for (@required) {
  next if $q->param($_);
  $req_err++; last;
}

if ($req_err) {
  &error("You forgot some required fields");
}