Answer by dpp for Perl script to parse XML using XML::LibXML;

You need to iterate over the children of sample node,

for my $sample ( $xmldoc->findnodes('/Statistics/Stats/Sample') ) {    print $sample->nodeName(), "\n";    foreach my $child ( $sample->getChildnodes ) {        if ( $child->nodeType() == XML_ELEMENT_NODE ) {            print "\t", $child->nodeName(), ":", $child->textContent(), "\n";        }    }}

will show,

Sample        Name:System1        Type:IBM        Memory:2GB        StartTime:2012-04-26T14:30:01Z        EndTime:2012-04-26T14:45:01ZSample        Name:System2        Type:Intel        Disks:2        StartTime:2012-04-26T15:30:01Z        EndTime:2012-04-26T15:45:01Z        Video:1