Select Code to Download

<shelf>
    <product>
...
        <color>orange</color>
    </product>
</shelf>

use XML::Simple;
$file = XMLin('./prod.xml');
...
    print "  Cost: " . $products->{cost} . "\n";
    print "Colors: " . $products->{color} . "\n\n";
}

Widget: widget1
Rating: B
  Cost: 0.10
...
Rating: S
  Cost: 0.25
Colors: ARRAY(0x19c55f0)