如何编写Perl脚本来提交位于JavaScript页面上另一个表单中的表单

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

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

# 设置JavaScript支持
$mech->agent('Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.110 Safari/537.3');
$mech->add_header('Accept' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
$mech->add_header('Accept-Language' => 'en-US,en;q=0.5');
$mech->add_header('Accept-Encoding' => 'gzip, deflate');
$mech->add_header('Referer' => 'http://example.com');

# 打开JavaScript页面
$mech->get('http://example.com/javascript_page');

# 提交表单
$mech->submit_form(
    form_number => 1,  # 表单的编号，根据实际情况进行调整
    fields      => {
        field1 => 'value1',  # 表单字段及对应的值
        field2 => 'value2',
        field3 => 'value3',
    }
);

# 获取提交后的响应内容
my $response = $mech->content();

# 处理响应内容
# ...