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

##</code><code>##

$VAR1 = {
          'Application' => {
                           'Location' => {
                                         'ZDrive' => 'Z:\\Temp',
                                         'CDrive' => 'C:\\Temp',
                                         'Name' => 'Loc1'
                                       },
                           'Name' => 'App1'
                         }
        };
App1
Loc1
Z:\Temp
C:\Temp