https://myaccount.server.com/clx/index.php?part=menu&justloggedin=true ##

##



##

##

   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
      #
      #
      #

##

##

    $m->follow_link(n=>0);
    $m->follow_link(n=>1);

##

##

    print join('; ',@{${$m->links()}[0]}),"\n\n";
    print join('; ',@{${$m->links()}[1]}),"\n";

##

##

index.php?part=menu&justloggedin=true; ; ; meta; https://myaccount.server.com/clx/index.php; HASH(0x864c5f8)

index.php?part=menu&justloggedin=true; ; ; a; https://myaccount.server.com/clx/index.php; HASH(0x86168bc)

##

##

$m->get( 'https://myaccount.server.com/clx/index.php?part=menu&justloggedin=true' )

##

##

print $m->response->request->uri;

##

##

    $m->reload();