my $URL = "http://www.arabidopsis.org/cgi-bin/Blast/TAIRblast.pl";
#BLASTX:NT query, AA db  ->blastx 
#AGI Proteins (Protein)     ->ATH1_pep
#query sequence             ->QueryText
my $response = $browser->post( $URL,
    [ 'Algorithm' => 'blastx', 'BlastTargetSet' => 'ATH1_pep',
      'QueryText' => $sequence,
      'ReplyTo' => 'monk@perlmonks.org'
    ]
);