Select Code to Download

use Data::Dump;
my $price;
...
    $price = $reader->readInnerXml if $reader->localName eq 'price';
}
dd "price", $price;

(
  "product",
...
("url", "http://www.foo.com")
("imageurl", "http://www.foo.com/foo.jpg")
("price", 123.45)