or download this
#!/usr/bin/perl
...
my $xpath = XML::XPath->new(filename => 'TEST.XML');
my $nodeset = $xpath->find('/ADI/Asset/Asset/Metadata[AMS[@Asset_Class
+="poster"]]');
ddump('ref nodeset', __LINE__, ref $nodeset); # this shows 'XML::XPat
+h::NodeSet'