Actually I think I got it. Here is the output:

/www/configs/DB2/HLBROKDB/scripts/ScriptConfig.Driver.sh /www/configs/
+DB2/HLBROKDB/config/ScriptConfig.HLBROKDB-PROD.xml prodwxbat204as1l
Remove control-Ms from config script /www/configs/DB2/HLBROKDB/config/
+ScriptConfig.HLBROKDB-PROD.xml ...
Uncataloging items in /www/configs/DB2/HLBROKDB/config/ScriptConfig.HL
+BROKDB-PROD.xml
main::awc_db2_mgmt_kick running uncatalog for dcs entries
$VAR1 = {
          'db' => {
                  'HLBROKDB' => {
                                'node' => 'HLBROKDB'
                              }
                },
          'dcs' => [
                   {}
                 ],
          'node' => {
                    'HLBROKDB' => {
                                  'server' => 'produdbhlbrokdb',
                                  'port' => '54042'
                                }
                  },
          'changeLog' => [
                         'Created by  Praveenkumar Sampath on 2015-01-
+06 05:05:59'
                       ]
        };
Not a HASH reference at /www/was50/bin/awc_db2_mgmt.pl line 58.
/www/was50/bin/awc_db2_mgmt.pl failed: Please investigate.
[download]

 47 # OUTPUT returns true/false that the specified db2 configuration f
+ile could be processed appropriately     for the given action.
 48         my $log_pre = whatsub();
 49         my ($action,$hashref,@type_order) = @_ or (warn "$log_pre 
+Invalid arguments" and return 0);
 50
 51         # Iterate over the configuration types listed in @type_ord
+er
 52         foreach my $type (@type_order) {
 53                 print "$log_pre running $action for $type entries\
+n";
 54                 # Iterate over all items of that type
 55 use Data::Dumper;
 56 print Dumper($hashref);
 57                 my $type_hash = $hashref->{$type};                
+      #shortcut to smaller hash
 58                 foreach my $item (keys %{$type_hash}) {
 59                         print "$log_pre running $action for $type 
+$item\n";
 60                         my $item_hash = $type_hash->{$item};      
+      #shortcut to smaller hash
 61                         #Add values for type and action into the h
+ash
 62                         $item_hash->{'name'} = $item;
 63                         $item_hash->{'type'} = $type;
 64                         $item_hash->{'action'} = $action;
 65                         print Dumper($hashref);
 66                         #execute action for the individual configu
+ration
 67                         unless (db2_mgmt_cat(\%{$item_hash})) {
 68                         #unless (db2_mgmt_cat(\%{$type_hash})) {
 69                                 # Return false if the action could
+ not be completed successfully.
[download]