+close(INIFILE);
+
+
+for my $section (@sections) {
+ for my $val (keys(%{$Config{$section}})) {
+ print "$section: $val: <" . ${$Config{$section}}{$val}.">\n";
+ #for my $val (qw(host login password)) {
+ # if (defined($cfg->val($section, $val))) {
+ # print "$val: <" . $cfg->val($section, $val) . ">\n";
+ # }
+ #}
+
+ }
+}
+