use strict;
use WWW::Mechanize::Firefox;

my $url   = "http://tools.immuneepitope.org/tools/bcell/iedb_input";
my $agent = WWW::Mechanize::Firefox->new(
	activate  => 1,
	autoclose => 0,
);

my $method = 49;
my $seq = "ARRRSFASDATRASDFSDARASDAGADFGASDRFREWFASCDSAGAREW";

$agent->get($url);
if ( $agent->success() ) {
    print "Retrieved $url\n";
    $agent->form_name('form1');
    #$agent->set_fields( 'sequence' => $seq );
    $agent->field( 'sequence' => $seq );
    my $q = sprintf '//input[@name="method" and @value="%s"]', $method;
    my $method_field = $agent->xpath( $q, single => 1 );
    $agent->click( $method_field, synchronize => 0 );
    #$agent->submit();
}