#!/usr/bin/perl -w
use Config::Simple;

my $cfg = new Config::Simple( "testini.dat" );
die "Config file failure" if not defined $cfg;
%config = $cfg->vars();
my $bar = $cfg->param("FOO.Bar");
my $baz = $cfg->param("FOO.Baz");
print "<$bar>, <$baz>\n";

##</code><code>##

[FOO]
Bar=hello
Baz=
Boo=