print "##############################################################\n";
   if(VERBOSE) {
      my $counter = 1;
      print "The cluster_info tables:\n------------------------\n";
      while ( my ($IP, $hashref) = each %cluster_info) {
         printf "%-3s %-20s %-18s %s", "$counter", "cluster IP:", ":$IP:", "\n";
         for my $param ( sort keys %{ $hashref } ) {
            printf "%-20s %-18s %s", "$param" . ":", ":$cluster_info{$IP}{$param}:", "\n";
         }
         $counter++;
         print "=====================================================\n";
      }
   }