Perl XML parse

Reference:
http://stackoverflow.com/questions/487213/whats-the-best-xml-parser-for-perl
http://stackoverflow.com/questions/10404152/perl-script-to-parse-xml-using-xmllibxml

use XML::LibXML;

$xmlfilename = "2639.XML";

$parser = XML::LibXML->new();
$doc = $parser->parse_file($xmlfilename);

@nodes = $doc->findnodes("/Statistics/Stats/Sample");

print $nodes[0]->nodeName(), ": ", $nodes[0]->textContent(), "\n";