Select Code to Download

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

my $i;
while ( my $seq = $seqio->next_seq() ) {
...
    print $seq->display_id, "\n";
    last if $i++ > 5;
}