#!/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