perl模拟登录(1)

use WWW::Mechanize;

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