use WWW::Mechanize;
use HTML::Form;
use strict;
my ( $content, $mech, $pass, $url, $user );
$user="user\@test.com";
$pass="mypass";
$url = "https://www.test.com".
$mech = WWW::Mechanize->new();
push @{ $mech->requests_redirectable }, 'POST';
$mech->redirect_ok();
# get main page.
$mech->get($url);
die "ERROR(mech): ", $mech->response->status_line unless $mech->success;
# fill form with userid/pass and submit
my $resp = $mech->submit_form( form_name => 'Login',
fields => { USER => "$user",
PASSWORD => "$pass" },
);
die "ERROR(resp): ", $resp->response->status_line unless $resp->is_success;
# print output
$content = $resp->content;
die "ERROR can not get content: ", $mech->status_line unless $resp->is_success;
print $content;
exit;
####
Livelink - Redirection