package Config::Simple;
 
# $Id: Simple.pm,v 3.50 2003/04/29 01:42:25 sherzodr Exp $
 
use strict;
# uncomment the following line while debugging. Otherwise,
# it's too slow for production environment
#use diagnostics;
use Carp;
use Fcntl qw(:DEFAULT :flock);
use Text::ParseWords 'parse_line';
use vars qw($VERSION $DEFAULTNS $LC $USEQQ $errstr);
use AutoLoader 'AUTOLOAD';
 
 
$VERSION   = '4.55';
$DEFAULTNS = 'default';
 
##</code><code>##

#!/usr/bin/perl -w
                                                                                
use Config::Simple;
use strict;
                                                                                
                                                                                
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 "NET = $config{NET} \n";
exit;
                                                                                
##</code><code>##

'ini' syntax
Use of uninitialized value in concatenation (.) or string at ./t2.pl line 14.
NET =