#!/usr/bin/env perl use strict; use warnings; use WWW::Mechanize; use Web::Scraper; my $mech = 'WWW::Mechanize'->new('autocheck', 1, agent =>'Mozilla/5.0'); $mech->get('https://...'); my $scraper = scraper { process '/html/body/form/input[…