gistfile1.txt

#!/stawberry/perl/bin/perl -w

use warnings;
use Bio::Tools::Run::Alignment::Blat;
use Bio::SeqIO;
use Bio::DB::Fasta;
  
my $seqio_object  = Bio::SeqIO -> new (-file => 'C:/Users/MINH/Desktop/yeastquery.fasta',  -format => 'fasta'); 
        
my $database = 'C:/Users/MINH/Desktop/yeast.nt';
my $db = Bio::DB::Fasta->new($database); 
        
my $factory = Bio::Tools::Run::Alignment::Blat->new(); 

while (my $blat_object = $seqio_object -> next_seq) {	
                my $results = $factory -> run($blat_object,$db); 
}