use WWW::Mechanize;
my $url= 'https://10.64.40.29:8181//login.jsp';
    my $mech = WWW::Mechanize->new( autocheck => 1 );
    $mech->credentials(
        '10.65.44.29:8181',
        'admin',
        'admin' => 'password'
    );
    $mech->get( $url );
    print $mech->content();