#!/usr/bin/perl

use XML::LibXML::Reader;

my $reader = XML::LibXML::Reader->new(location => "parts.xml")
         or die "cannot read file.xml\n";

while($reader->read) {

## VARIABLE ASSIGNMENT DOES NOT PERSIST
    $price = $reader->readInnerXml if $reader->localName eq 'price';

## THESE PRINT EXPECTED VALUES
    print $reader->readInnerXml if $reader->localName eq 'price';
    print $reader->readInnerXml if $reader->localName eq 'url';
    print $reader->readInnerXml if $reader->localName eq 'imageurl';
    print $reader->readInnerXml if $reader->localName eq 'name';

}


##</code><code>##


<product>
<name>5 Spoke Wheel</name>
<description>Reconditioned OEM</description>
<price>123.45</price>
<url>http://www.foo.com</buyurl>
<imageurl>http://www.foo.com/foo.jpg</imageurl>]
</product>