##
#!/usr/bin/perl
use strict;
use warnings;
use XML::XPath;
use Data::Dumper;
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::XPath::NodeSet'