my $url = 'http://www.csbio.sjtu.edu.cn/bioinf/MemBrain/';
my $mech = WWW::Mechanize->new (timeout=>1000);
$mech->post($url);
#$mech->get($url);