##
use warnings;
use strict;
use XML::XPath;
use Data::Dumper;
my $xml = '../events.xml';
my $xp = XML::XPath->new(filename => $xml);
my $nodeset = $xp->findnodes('//playlist');
my $records = [];
foreach my $node ($nodeset->get_nodelist) {
my $title = $xp->find('./title', $node);
push @$records, {
title => $title->string_value,
};
}
print Dumper($records);