use HTTP::Request::Common;
use Data::Dumper;
use WWW::Mechanize;
use MIME::Base64;

my $url = 'http://test.test.com/webservices/test.asmx?;
my $Domain = 'test';
my $UserName = 'test\\user';
my $Password = "pass";

my $agent = WWW::Mechanize->new();
my @args = (
	Authorization => "Basic " .
		MIME::Base64::encode( $UserName . ':' . $Password )
);

$agent->credentials( 'http://test.test.com' , $Domain, $UserName, $Password );
my $results = $agent->get( $url, @args );

print Dumper($results);