Select Code to Download

<products>
    <product>
...
        </categories>
     </product>
<products>

$VAR1 = {
          'Vegetables' => {
...
                        'id' => '445720'
                           }
        };

foreach my $part ($dom->findnodes('/products/product')) {
...
                            
    }
}