Select Code to Download

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

<uniprot xmlns="http://uniprot.org/uniprot" xmlns:xsi="http://www.w3.o
+rg/2001/XMLSchema-instance" xsi:schemaLocation="http://uniprot.org/un
+iprot http://www.uniprot.org/support/docs/uniprot.xsd">