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