#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
use HTTP::Cookies;

my $cookie_jar = HTTP::Cookies->new(file => 'cookies', autosave => 1, ignore_discard => 1);
my $mech = WWW::Mechanize->new( cookie_jar => $cookie_jar, autocheck => 1 );

$mech->get( 'https://oc4jese1ssl.pubblica.istruzione.it/trasparenzaPubb/ricercacv.do' );

$mech -> form_id ( 'RicercaCVAF' );

$mech -> select ( "codRegione", "AB_ABRUZZO" );
$mech -> select ( "codProvincia", "CH_CHIETI" );
$mech -> select ( "codComune", "E372_VASTO" );
$mech -> field ( "submitName", "Cerca la scuola" );
$mech -> submit ( );

print $mech -> content;