#!/usr/bin/perl
use warnings;
use strict;

use XML::LibXML;

my $xml = q%<?xml version="1.0"?>
<?xml-stylesheet type="text/xsl" href="/templates/xsl/abc/search/searchRetrieveResponse.xsl"?><searchRetrieveResponse xmlns="http://www.abc/srw/">
   <version>1.1</version>
   <numberOfRecords>14135</numberOfRecords>
   <records>
      <record>
         <recordSchema>info:srw/schema/1/dc-v1.1</recordSchema>
         <recordPacking>xml</recordPacking>
         <recordData>
            <srw_dc:dc xmlns:srw_dc="info:srw/schema/1/dc-v1.1"
                       xmlns:dc="http://purl.org/dc/elements/1.1/">
               <dc:identifier>ISSN: 00322032</dc:identifier>
               <dc:identifier>URL: http://www.jstor.org/stable/23068315</dc:identifier>
               <dc:title>TEST</dc:title>
               <dc:creator>KAY RYAN</dc:creator>
               <dc:relation>Poetry, Vol. 176, No. 3</dc:relation>
               <dc:coverage>p. 126</dc:coverage>
               <dc:rights>Copyright 2000 Poetry Foundation</dc:rights>
               <dc:publisher>Poetry Foundation</dc:publisher>
               <dc:date>2000-06-01</dc:date>
               <dc:type>FLA</dc:type>
               <dc:language>eng</dc:language>
            </srw_dc:dc>
         </recordData>
         <recordPosition>1</recordPosition>
      </record>
      <record>
         <recordSchema>info:srw/schema/1/dc-v1.1</recordSchema>
         <recordPacking>xml</recordPacking>
         <recordData>
            <srw_dc:dc xmlns:srw_dc="info:srw/schema/1/dc-v1.1"
                       xmlns:dc="http://purl.org/dc/elements/1.1/">
               <dc:identifier>ISSN: 0010096X</dc:identifier>
               <dc:identifier>URL: http://www.jstor.org/stable/357303</dc:identifier>
               <dc:title>Test</dc:title>
               <dc:creator>Wm. Leonard</dc:creator>
               <dc:relation>College Composition and Communication, Vol. 29, No. 2</dc:relation>
               <dc:coverage>p. 161</dc:coverage>
               <dc:rights>Copyright 1978 National Council of Teachers of English</dc:rights>
               <dc:publisher>National Council of Teachers of English</dc:publisher>
               <dc:date>1978-05-01</dc:date>
               <dc:type>FLA</dc:type>
               <dc:language>eng</dc:language>
            </srw_dc:dc>
         </recordData>
         <recordPosition>2</recordPosition>
      </record>
      </records>
</searchRetrieveResponse>%;

my $data = 'XML::LibXML'->load_xml(string => $xml);
my $xpc  = 'XML::LibXML::XPathContext'->new($data);
$xpc->registerNs('srw', 'http://www.abc/srw/');
$xpc->registerNs('dc',  'http://purl.org/dc/elements/1.1/');

my $recordData = $xpc->findnodes('//srw:records/srw:record/srw:recordData', $data);
foreach my $rec(@$recordData){
    my $title = $xpc->findnodes('.//dc:title', $rec);
    print $title, "\n";
}