use XML::LibXML;
my $parser = XML::LibXML->new();
                                                                                
my $doc = $parser->parse_string(<<'EOT');
<?xml version="1.0" encoding="UTF-8"?>
<PathXml>
<Paths>
<path1 a="C:/ashwani/projects/path1"/>
<path2 b="C:/ashwani/projects/path2"/>
<path3 c="C:/ashwani/projects/path3"/>
</Paths>
</PathXml>
EOT
                                                                                
foreach my $node ($doc->findnodes('//Paths/*') )
{
   print $node->nodeName(), ($node->attributes())[0]->nodeValue(),"\n";
}