#!/usr/bin/env perl 
use strict;
use warnings;
use WWW::Mechanize;

my $url  = 'http://www.csbio.sjtu.edu.cn/bioinf/MemBrain/';
my $mech = WWW::Mechanize->new;
$mech->post ($url);
die $mech->status unless $mech->success;