[Bioperl-l] no blast result

[Manju Rawat]

this is the perl code

 #!usr/bin/perl -w
use Bio::Perl;
use Bio::SearchIO
use Bio::Tools::Run::StandAloneBlast;
 @params = ('database' => 'swissprot',
        'READMETHOD' => 'Blastn');

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


 $input = Bio::Seq->new(-id=>"testquery",-seq=>"gatcgtataccgtacagct");
 $blast_report = $factory->blastall($input);


  write_blast(">rs.blast",$blast_report);


It showing error that


Use of uninitialized value $_[0] in join or string at
/usr/share/perl/5.10/File/Spec/Unix.pm line 41.

MSG: cannot find path to blastall