Select Code to Download

use Bio::SeqIO;
my $seqIO = Bio::SeqIO->new({-file=>'nt', -format=>'fasta'});
...
     }

print "There are $i non-redundant nucleotide sequences\n";