##
sub read_ini {
my $config_file = shift;
my $parser = XML::Simple->new;
my $results = $parser->XMLin($config_file);
# $results is a hash reference
return $results;
}
####
my $config = read_ini("AppDeployment.xml");
####
my $apps = $config->{SYSTEMS};