Hi Ronnie,

The first thing I noticed when trying to run your program is the errors:

Pseudo-hashes are deprecated at ./x line 86.
Pseudo-hashes are deprecated at ./x line 86.
Argument "/opt/bin2" isn't numeric in each at ./x line 86.
Bad index while coercing array into hash at ./x line 86.
[download]

If you modify the program to display the contents of DB_hash just prior to where the error occurs:

      use Data::Dumper;
      printf "DEBUG:  Dump of DB_hash = (%s)\n", Dumper($DB_hash);
      while (($key, $value) = each %$DB_hash ) {
[download]

you'll see that it's actually an Array of Hashes:

        xxrctest S T A R T S
DEBUG:  Dump of DB_hash = ($VAR1 = [
          {
            'ADMIN_DIR' => '/opt/bin2'
          }
        ];
[download]

So you need to dereference the first element of the array to get to the hash that it contains.  An easy way to do this would be:

      my $actual_hash = $DB_hash->[0];
      while (($key, $value) = each %$actual_hash ) {
[download]

In general you should try applying this debugging technique to any program which gives you warnings or errors, as it will usually help you get right to the source of the problem.