my $reader = new XML::LibXML::Reader(location => $xmlfile) or die "cannot read $xmlfile\n";
while ($reader->read) {
   my $pattern = XML::LibXML::Pattern->new('//entry');
   $reader ->nextPatternMatch($pattern);
}