#!/usr/bin/perl

use 5.014;
use strict;
use warnings;
use autodie;
use AppConfig qw(:all);
use Data::Dumper;

my $app_config = AppConfig->new('filename' => '/home/john/tmp/config.xml');

my %config=getAPPConfig();