1.5.499 d:\pb8\ Assessor,Treasurer 1.5.200 p:\ ##

##

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};