#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use WWW::Mechanize;

my $url = 'http://areaclienti.tre.it/selfcare/areaclienti133/4554_profilo_ITA_HTML.xsl';
my $mech = WWW::Mechanize->new();
$mech->get( $url );

$mech->submit_form(
    form_name => 'formDati',
    fields      => {
        username    => 'username',
        password    => 'password',
    }
);


my $page = $mech->follow_link( text_regex => qr/info costi/i );

print Dumper $page;

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use WWW::Mechanize;

my $url = 'http://areaclienti.tre.it/selfcare/areaclienti133/4554_profilo_ITA_HTML.xsl';
my $mech = WWW::Mechanize->new();
$mech->get( $url );

$mech->submit_form(
    form_name => 'formDati',
    fields      => {
        username    => 'username',
        password    => 'password',
    }
);


$mech->follow_link( text_regex => qr/info costi/i );

my $page = $mech->follow_link( text_regex => qr/visualizza soglie/i );

print Dumper $page;