Select Code to Download

#!/usr/bin/perl

...
        print $item->findvalue('./ASIN'), "\n";
        print $item->findvalue('./ASIN', $item), "\n";
}

ASIN
<ASIN>B01KI4JSQY</ASIN>
B01KI4JSQY
B01KI4JSQY
B01KI4JSQY

ASIN
<ASIN>B01KI4JSQY</ASIN>