Select Code to Download

use XML::XPath;
use XML::XPath::XMLParser;
...
foreach my $node ($nodeset->get_nodelist) {
        print $node->string_value(), "\n";
}