#!/usr/bin/perl
use XML::XQL;
use XML::XQL::DOM;
use Data::Dumper;

$parser = new XML::DOM::Parser;
$doc = $parser->parsefile ("bookstore.xml");
$query = new XML::XQL::Query (Expr => "//first-name");
@result = $query->solve ($doc);
$query->dispose;
print Data::Dumper->Dump(@result);