#!/usr/bin/perl -l

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;

my $url  = 'http://server:port/path/script.aspx';
my $user = 'domain\\user';
my $pass = 'password';
my $host = 'server:port';

my $ua = LWP::UserAgent->new( keep_alive => 1 );
$ua->credentials($host, '', $user, $pass);

my $req = GET $url;

my $response = $ua->request($req);
if ($response->is_success) {
    printf " %s\n", $response->status_line;
    printf "\n\n\n" . $response->content();
}
else {
    print "Something's not right... ->" . $response->code;
}