#!/usr/bin/perl

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

$AppConfig::configFile='/home/john/tmp/config.xml';

my %config=getAPPConfig();

##</code><code>##

#!/usr/bin/perl

package AppConfig;

use 5.014;
use strict;
use warnings;
use autodie;

use Exporter qw(import);

# Module specific imports
use XML::Twig;

our $VERSION     = 1.00;
our @ISA         = qw(Exporter);
our @EXPORT_OK   = qw(getAppConfig);
our %EXPORT_TAGS = (
		   	'all' => \@EXPORT_OK,
		   ); 

our $configFile;

sub getAppConfig {

my (%config,$twig,$root);
say $AppConfig::configFile;
$twig = XML::Twig->new();
$twig->parsefile->($AppConfig::configFile);
$root = $twig->root;

$config{'ppSK'}=$root->first_child('pp')->first_child('ppSK')->text;

return \%config;

}

# End.....
1;


##</code><code>##

/home/john/tmp/config.xml
Use of uninitialized value in -f at /usr/share/perl5/XML/Twig.pm line 697.
Couldn't open :
No such file or directory at AppConfig.pm line 30
 at AppConfig.pm line 30