#!/usr/bin/perl -w
use Config::Simple;
use strict;
use Data::Dumper;
my $cfg;
my %config;
$cfg = new Config::Simple('test.cfg');
open(FH,"test.cfg");
printf("'%s' syntax\n", $cfg->guess_syntax(\*FH));
close FH;
%config = $cfg->vars();
print Dumper(\%config);
exit;

D:\PerlProjects\tests>c.pl

##</code><code>##

'ini' syntax
$VAR1 = {
          'default.NET' => 'X'
        };

##</code><code>##

[block1]
key=value

##</code><code>##

[info]
NET=X

##</code><code>##


D:\PerlProjects\tests>c.pl
'ini' syntax
$VAR1 = {
          'info.NET' => 'X'
        };