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