use Data::Dump;
my $price;
while($reader->read) {
	next unless $reader->nodeType==XML_READER_TYPE_ELEMENT;
	dd $reader->localName, $reader->readInnerXml;
	$price = $reader->readInnerXml if $reader->localName eq 'price';
}
dd "price", $price;

##</code><code>##

(
  "product",
  "\n<name>5 Spoke Wheel</name>\n<description>Reconditioned OEM</description>\n<price>123.45</price>\n<url>http://www.foo.com</url>\n<imageurl>http://www.foo.com/foo.jpg</imageurl>]\n",
)
("name", "5 Spoke Wheel")
("description", "Reconditioned OEM")
("price", 123.45)
("url", "http://www.foo.com")
("imageurl", "http://www.foo.com/foo.jpg")
("price", 123.45)