foreach (@required) {
   push(@errors, "$_ is a required field") unless $q->param($_);
}

push(@errors, "E-mail address is invalid") unless Valid($q->param('email'));
push(@errors, "The moon is full") if $moon->isFull;

if (@errors) {
   &Error(@errors);
} else {
   &Success("You rule.");
}