+
+my $params = {};
+
+my $USAGE = "PROGRAM_NAME: Usage: $PROGRAM_NAME [--help] [--ps-no-redundant] [--fan-no-redundant] [--fan-high] [--dimm-na] [--fan-ignore-not-present] [--ignore-failed=<S> [--ignore-failed=<S>]n";
+Getopt::Long::config('bundling');
+if (!GetOptions ($params,
+ '--help',
+ '--ps-no-redundant',
+ '--fan-no-redundant',
+ '--fan-high',
+ '--dimm-na',
+ '--fan-ignore-not-present',
+ '--ignore-failed=s@',
+ )) {
+ die ("$USAGE");
+};
+if ($params->{'help'}) {
+ print "$USAGE";
+ print "Checks hp hardware health.\n";
+ exit (0);
+};
+
+