use strict;
use XML::LibXML;

my $parser = new XML::LibXML();

my $doc = $parser->parse_file('namespace.xml');

my $ra_node = $doc->find('/Catalogue/Segments/Segments[@Name="Products"]');

print "NB NODE ".scalar(@{ $ra_node })."\n";