Select Code to Download

for my $dead ($d->findnodes(q{/category/subcategory/product[product_id
+ = $prod]}))

my $xPath = '/category/subcategory/product[product_id = ' . $prod . ']
+';
for my $dead ($d->findnodes($xPath))