foreach $field (qw(FName LName Department Title HireDate Picture RecID)) {
    &CgiDie("Error: Missing field $field\n") unless defined $input->{$field};
  }