-my $xml = XML::LibXML->load_xml(string => $esummary->get_Response()->content());
-for my $article ($xml->findnodes('PubmedArticleSet/PubmedArticle/MedlineCitation')) {
- # print $article->toString;
- my ($pmid) = $article->findnodes('./PMID');
- my ($title) = $article->findnodes('./Article/ArticleTitle');
- my ($abstract) = $article->findnodes('./Article/Abstract');
+my $xml = XML::LibXML->load_xml(string => $raw_xml->get_Response->content);
+print STDERR $xml->toString if $DEBUG;
+for my $article ($xml->findnodes(q{//*[local-name()='MedlineCitation']})) {
+ print STDERR $article->toString if $DEBUG;
+ my ($pmid) = $article->findnodes(q{./*[local-name()='PMID']});
+ my ($title) = $article->findnodes(q{./*[local-name()='Article']}.
+ q{/*[local-name()='ArticleTitle']});
+ my ($abstract) = $article->findnodes(q{./*[local-name()='Article']}.
+ q{/*[local-name()='Abstract']});