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.
[download]

My suggestion is to use something that is already written, good luck and go fish ncbi blast, ncbi blast, ncbi blast... Bio::Tools::Run::RemoteBlast - Object for remote execution of the NCBI Blast via HTTP