my $cgi = CGI->new();
my %params = $cgi->Vars();

my $errorMessages = "";
foreach my $key (qw(numeric integer id)) {
  if ($params{$_} =~ /\D/) {
    $errorMessages .= "Error: $key contains chars that are not numeric<br />";
  } # if
} # foreach

foreach my $key (qw(string1 string2 text)) {
  if ($params{$_} =~ /[^a-zA-Z0-9 ]/) {
    $errorMessages .= "Error: field $_ contains other characters than letters, numbers or spaces<br />";
  } # if
}  # foreach

if ($errorMessages) {
  &PrintError($errorMessages);
  exit;
}