#!/usr/local/bin/perl -w

use XML::Simple;

my $xml = XMLin($xmlsource);
my @items = @{$xml->{Item}};

foreach my $item (@items) {
     print "$item->{ProductType}<br/>";
}

# prints out all the item names