Client-Warning : Unsupported authentication scheme 'ntlm'
Title : You are not authorized to view this page

##</code><code>##

Client-Warning : Unsupported authentication scheme 'negotiate'
Title : You are not authorized to view this page 

##</code><code>##

use WWW::Mechanize;
use LWP::Debug qw(+);
use LWP::Authen::Ntlm;

##</code><code>##


#! C:/perl/bin

use warnings;
use strict;
use WWW::Mechanize;
use LWP::Debug qw(+);
use LWP::Authen::Ntlm;

my $usr="";
my $pw="";
  
my $url='http://www.mysite.com';
my $robot=WWW::Mechanize->new(autocheck => 0, keep_alive=>1);

$robot->credentials($url, '', $usr, $pw);
$robot->get("$url/intranetadmin/index.php");;

my $response = $robot->response();
    for my $key ( $response->header_field_names() ) {
        print $key, " : ", $response->header( $key ), "\n";
    }