use Bio::SeqIO;
my $seqIO = Bio::SeqIO->new({-file=>'nt', -format=>'fasta'});
my $i = 0;
while (my $seq = $seqIO->next_seq()) {
     $i++;
     }

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