Select Code to Download

foreach my $d (keys %{$doc->{'results'}{'result'}{'output'}{'products'
+}{'product'}})    {
        print $doc->{'results'}{'result'}{'output'}{'products'}{'produ
+ct'}{'image_link'} . "\n";
}

foreach my $d (keys %{$doc->{'results'}{'result'}{'output'}{'products'
+}{'product'}})    {
        print $d->{'image_link'} . "\n";  #UPDATE (was: $d{'image_link
+'} ) spotted by choroba (thanks) .. i was sure i put
}