perl模拟登录(1)

 use WWW::Mechanize;

 my $ua = WWW::Mechanize->new();
 $ua->post('http://localhost/dvwa/DVWA-master/login.php');
 #登录网址
 $ua->form_number();
 #表单编号, 也可用$ua->form_name(form_name);
 $ua->field('username' => 'admin');
 $ua->field('password' => 'password');
 #登录参数
 $ua->click('Login');
 #点击时的submit中的name
 print $ua->content;