use strict;
use XML::Simple;
use Data::Dumper;
my $config = XMLin('config.xml');
print Dumper($config);
print "$config->{Application}->{Name}\n";
print "$config->{Application}->{Location}->{Name}\n";
print "$config->{Application}->{Location}->{ZDrive}\n";
print "$config->{Application}->{Location}->{CDrive}\n";