#!/usr/local/bin/perl

use XML::XPath;
my $file = 'test.xml';
my $xp = XML::XPath->new(filename=>$file);
my $nodeset = $xp->find('/MEMBERLIST/LIST[position()=last()]');

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