for my $section ($cfg->Sections) {
for my $val (qw(host login password)) {
if (defined($cfg->val($section, $val))) {
print "$val: <" . $cfg->val($section, $val) . ">\n";
}
}
for my $section ($cfg->Sections) {
for my $val (qw(host login password)) {
if (defined($cfg->val($section, $val))) {
print "$val: <" . $cfg->val($section, $val) . ">\n";
}
}