+
+my $cfg = Config::IniFiles->new(-file => "$ENV{HOME}/.snomrc")
+ || die("can't open config: $ENV{HOME}/.snomrc: $!");
+
+my @sections = ();
+
+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";
+ }
+ }
+ push(@sections, $section);
+}
+
+