Select Code to Download

    my $stringfh = new IO::String($sequence_string);
    my $seqio = new Bio::SeqIO(-fh => $stringfh, -format => 'fasta');

    my $blaster = Bio::Tools::Run::StandAloneBlast->new(@params);

while( my $seq = $seqio->next_seq ) {
  my $blast_report = $blaster->blastall($seq);
...
    }
  }
}