#!/usr/bin/perl -w
###########################################
# xptitles - find all titles with XPath
# Mike Schilli, 2005 (m@perlmeister.com)
###########################################
use strict;
use XML::LibXML;

my $x = XML::LibXML->new() or
    die "new failed";

my $d = $x->parse_file("data.xml") or 
    die "parse failed";

my $titles = 
    "/result/cd/title/text()";

for my $title ($d->findnodes($titles)) {
    print $title->toString(), "\n";
}