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