my $stringfh = new IO::String($sequence_string); my $seqio = new Bio::SeqIO(-fh => $stringfh, -format => 'fasta'); my $blaster = Bio::Tools::Run::StandAloneBlast->new(@params);