Help for this page

Select Code to Download

Select or download this

use XML::Simple;
use Data::Dumper;
...
}
my $xml = XMLout($ref, KeepRoot=>1, NoAttr => 1);
print $xml;

Select or download this

<subcategory>
  <Grand Arabica>
...
    <product_id>800.55.01</product_id>
  </Prestige>
</subcategory>