LWP::Authen::Negotiate::authenticate: authenticate() version 0.08 called
LWP::Authen::Negotiate::authenticate: target hostname www.perlmonks.org
LWP::Authen::Negotiate::authenticate: GSSAPI servicename HTTP@www.chase.com
LWP::Authen::Negotiate::authenticate: Unspecified GSS failure.  Minor code may provide more information
LWP::Authen::Negotiate::authenticate: Server not found in Kerberos database

##</code><code>##

use LWP::UserAgent;
use LWP::Authen::Negotiate;
use LWP::Debug qw(+);

my $kut1Password = "password";
my $kut1User = "u1";
my $kut1Domain = "testdomain.com";
my $kut1KerbUser = "$kut1User\@$kut1Domain";
my $kut1Url = "http://www.perlmonks.org";

`echo $kut1Password | kinit  $kut1KerbUser`;
print (`klist`);
my $kut1LwpAgent = LWP::UserAgent->new(keep_alive => 1);
push @{$kut1LwpAgent->requests_redirectable}, 'POST';
$ENV{HTTP_PROXY} = "http://<proxy-ip>:<proxy-port>";


print ("PROXY IS " .$kut1LwpAgent->env_proxy."\n");

my $kut1LwpResponse = $kut1LwpAgent->get( $kut1Url ) ;
print ("Response is :". $kut1LwpResponse->headers()->as_string);

print(`klist`);


##</code><code>##

"curl --insecure --verbose --proxy-negotiate --proxy-user : --proxy <proxy-ip>:<proxy-port> --url http://www.perlmonks.org"