presunuto do perlCommon.pm

src/warden-server/sh/getConfHash.pl

-my $hash;
-our %VALID_STRINGS;
-require $ARGV[0];
-
-while (my ($key, $value_ref) = each %VALID_STRINGS) {
-  $hash .= "  \"$key\" => [\"$value_ref->[0]\"";
-  shift($value_ref);
-  foreach my $element (@$value_ref) {
-    $hash .= ", \"$element\"";
-  }
-  $hash .= "],\n";
-}
-print $hash;