use strict;
use warnings;
use XML::XPath;
use Data::Dumper;

my $xp = XML::XPath->new(ioref => *DATA);
my @name = $xp->findnodes('/md_map/md[@name]');

print $_->string_value,$/ for @name;


__DATA__
<?xml version="1.0"?>
<!-- This is XML for the X-CallLogger -->
<md_map>
    <md name="SRVONE">
        <Sys>ARS</Sys>
        <Server>HDSrv</Server>
        <Schema>Sch1</Schema>
        <User>Demo</User>
        <Pass></Pass>
        <Update_Core>Y</Update_Core>
    </md>
    <md name="SRVTWO">
        <Sys>ARS</Sys>
        <Server>HDSrv</Server>
        <Schema>Sch2</Schema>
        <User>Demo</User>
        <Pass></Pass>
        <Update_Core>Y</Update_Core>
    </md>
    <md name="SRVTHREE">
        <Sys>ARS</Sys>
        <Server>HDSrv</Server>
        <Schema>Sch1</Schema>
        <User>Demo</User>
        <Pass>pass</Pass>
        <Update_Core>N</Update_Core>
    </md>
</md_map>
[download]