Select Code to Download

use XML::LibXML 1.70;

...
foreach my $result (@results) {
    print "Got result, with parent: ", $result->parentNode->getAttribu
+te('name'), "\n";
}