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() ) {
	sleep(5);
	print "Retrieved $url\n";
	$agent->form_name('form1');
	$agent->set_fields( 'sequence' => $seq,'method' => $method);
	sleep(5); 
	$agent->submit();
}