#! perl -w
use strict;
use feature qw/ say /;

use Config::Tiny;
my $cfg = Config::Tiny->new;
   $cfg = Config::Tiny->read('new.conf') or die $!; 

foreach my $section (sort keys %{ $cfg }) {
  say "section: $section";
  foreach my $param (sort keys %{ $cfg->{ $section } }) {
    say "$section.$param : $cfg->{ $section }->{ $param }"; 
  }
}

__END__