use WWW::Mechanize;
my $m = WWW::Mechanize->new( agent => 'Linux Konqueror' );
$m->get( $url );
$r = $m->success or die "Can't get this url $url\n\n";
# login-Page is loaded ..
my $r = $m->submit_form(
fields => {
$uFld => $uNme,
$pFld => $pPwd
}
);
die "Couldn't submit form" unless $r->is_success;
# Login was successfull here
print $r->content # prints this
#
#
#