my $url = 'http://www.csbio.sjtu.edu.cn/cgi-bin/MEMBRAIN.cgi';
my $mech = WWW::Mechanize->new (timeout=>1000);
$mech->get($url);

		$mech->submit_form
		(
    		form_number => 1,
    		fields      => 
    		{
        		#textarea name | value
        		S1 => ">$id\n$seq",

        		#Radio button name | prediction type
        		R4    =>  TOPpre,

        		#Radio button SIGNAL | I do not know if I have a signal peptide
        		R2    =>  SignalYES,

        		#Radio button ORGANISM | Human, Plant, Animal, OEuk, Gpos, Gneg, 
        		R3    =>  Human,

        		#Fill in email
        		email => 'testmail@gmail.com'
    		}
    	);