1 #!/usr/bin/perl
   2 
   3 use strict;
   4 use warnings;
   5 use Config::Any;
   6 
   7 my $file = 'test.ini';
   8 
   9 my $cfg = Config::Any->load_files({
  10                files => [$file],
  11                use_ext => 1,});
  12 
  13 my ($c_file,$config) = each %{$cfg->[0]};
  14 my $path = $config->{Sektion}->{Path};