NCBI BLast 
...
use WWW::Mechanize;
use WWW::Mechanize::Firefox;
use WWW::Mechanize::Sleepy;
...
my $mech = WWW::Mechanize->new();
#my $mech = WWW::Mechanize::Sleepy->new(sleep=>1);
...
Not able to get final alignment result.Plz help me in this regard.