&search('nucleotide','txid4512[orgn] AND gbdiv_est[PROP]');

##</code><code>##

my $i;
while ( my $seq = $seqio->next_seq() ) {
        # do something with the data
	print $seq->display_id, "\n";
	last if $i++ > 5;
}