#!C:/perl/bin/perl.exe

use LWP::UserAgent;

use LWP::Debug qw(+);

use HTTP::Request::Common;

my $url= 'http://punsez138451d/L3NOCALM/default.aspx';

my $ua = new LWP::UserAgent(keep_alive => 1);

$ua->credentials('punsez138451d:80','',"MYDOMAIN\\username",'password');

$request = GET $url;

print "--Performing request now...------------------\n";

$response =  $ua->request($request);

print "--Done with request---------------------------\n";

if( $response->is_success) {
  print $response->content;
  } else {perl
 
  print 'Error: ', $response->status_line, "\n";
  print "===== Request Headers =====\n";
  print $response->headers->as_string;
  print "\n===== Response Headers ====\n";
  print $response->headers->as_string;
  print "\n===== Response Content ====\n";
  print $response->content;
  exit 1;
  }
 
$contents = $response -> content();

#print $response->status_line(), "\n";

#print $response->headers()->as_string();