如何使用Perl填写Web表单？

cpan install WWW::Mechanize

#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;

# 创建一个新的WWW::Mechanize对象
my $mech = WWW::Mechanize->new();

# 访问Web表单页面
$mech->get('https://example.com/form.html');

# 找到表单并填写
my $form = $mech->form_name('my_form');
$mech->field('username', 'my_username');
$mech->field('password', 'my_password');
$mech->field('email', 'my_email@example.com');

# 提交表单
$mech->submit();

# 打印提交后的页面内容
print $mech->content();

perl fill_form.pl