Select Code to Download

use XML::XPath;
                                                                      
+          
my $xp = XML::XPath->new(filename => 'greet.xml');
                                                                      
+          
print $xp->findvalue('//greeting/text()')->value();

use XML::LibXML;
my $parser = XML::LibXML->new();
...
{
   print $node->nodeName(), ($node->attributes())[0]->nodeValue(),"\n"
+;
}

C:\Documents and Settings\jstowe-admin>install http://theoryx5.uwinnip
+eg.ca/ppms
/XML-LibXML.ppd
...
Successfully installed XML-LibXML version 1.58 in ActivePerl 5.8.7.815
+.

C:\Documents and Settings\jstowe-admin>