use Bio::DB::EUtilities;
 
my $factory = Bio::DB::EUtilities->new(-eutil => 'esearch',
                         -db => 'protein',
                         -term => 'Oryza[Organism] AND EST[Keyword]',
                         -retmax => 5000);
 
# query terms are mapped; what's the actual query?
print "Query translation: ",$factory->get_query_translation,"\n";
# query hits
print "Count = ",$factory->get_count,"\n";
# UIDs
my @ids = $factory->get_ids;