#!/bin/perl -w
use warnings;
use Bio::Seq;
use Bio::Tools::Run::StandAloneBlast;
 
$blast_obj = Bio::Tools::Run::StandAloneBlast->new(-program  => 'blastn', -database => 'Anopheles-gambiae-PEST_TRANSCRIPTS_AgamP3.7.fa');
 
$seq_obj = Bio::Seq->new(-id  =>"AGAP007280_query", -seq =>"TCTCGAGATGGCGAACCTGCTGCAGGGGTTCAGCGAGATGGGTCCAGCCAAAGAGAAGACGACGCCACAGTATGAGG");
 
$report_obj = $blast_obj->blastall($seq_obj);
 
$result_obj = $report_obj->next_result;
 
print $result_obj->num_hits;