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`);