Help for this page

Select Code to Download

Select or download this

use XML::XPath;

...
foreach my $node ($nodeset->get_nodelist) {
  print "FOUND\n\n", $node->getValue, "\n\n";
}