#!c:\\perl\\bin\\perl.exe -w
use strict;
use diagnostics;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new( autocheck   => 1              ,
                                agent_alias => "Windows IE 6" ,
                                noproxy     => 1
                              );
my $url= shift;

# lwp actual navigation
    # request login page
    # fill in user and password
    # submit
$mech->get( $url );
$mech->field( 'user_field_name', shift  );
$mech->field( 'pwd_field_name' , shift  );
$mech->submit;

    # launch a browser...
system('start iexplore.exe '. $mech->uri.";jsessionid=".$mech->cookie_jar->{'COOKIES'}->{'server'}->{'/webapp'}->{'JSESSIONID'}->[1]);