use XML::Simple;
$xml = new XML::Simple( ForceArray => [qw( product color )]);
$file = $xml -> XMLin('./prod.xml', );

foreach $products (@{$file->{product}})	{
    print "Widget: " . $products->{title} ." \n";
    print "Rating: " . $products->{rating} . "\n";
    print "  Cost: " . $products->{cost} . "\n";
    print "Colors: " . (join ", ", @{$products->{color}})."\n\n";
}