use XML::Simple;
use Data::Dumper;
my $lXMLFile = "$ENV{'PWD'}/xmlsample.xml";
my $Config = XMLin($lXMLFile);
print Dumper($Config);