use Config::Simple;

$cfg = new Config::Simple(syntax => 'ini');

#
# Get Section Names
# 
$cfg = Config::Simple->import_from('new.conf', \%Config)  or die Config::Simple->error();
my @arr = ( keys %Config );
@arr1 = grep s/\..*//, @arr;
my %uniq;
@uniq{@arr} = ();
@sections = keys %uniq;

foreach my $secname (sort @sections) 
{
    print "section : $secname\n";
    foreach (sort keys %Config) 
    {

        print "$_ : $Config{$_}\n";

    }
}