Help for this page
#!/usr/bin/perl ... print $data->{Article}->{Journal}->{JournalIssue}->{Volume}, ":"; print $data->{Article}->{Pagination}->{MedlinePgn}, "." ; print "\n";
<?xml version='1.0'?> <PubmedArticle> ... </ArticleIdList> </PubmedData> </PubmedArticle>