Select Code to Download

$xml->findnodes('/x:ItemLookupResponse/x:Items/x:Item')

$item->findvalue('ASIN')

$xml->findvalue('x:ASIN', $item)

#!/usr/bin/perl

...
    say $item->firstChild->toString;
    say $xpc->findvalue('x:ASIN', $item);
}