##
##
##
#!/usr/bin/perl
use strict;
use warnings;
use XML::XPath;
my $xp = XML::XPath->new(filename => '/xml_test.xml');
foreach my $row ($xp->findnodes('/HOME/Account')) {
my $nodeset = $row->find('Record');
foreach my $node ( $nodeset->get_nodelist ) {
my $account = $node->find( 'accnumber')->string_value;
print "\n $account \n";
}
}