$req = HTTP::Request->new(GET => $myrequeststring);
$req->authorization_basic('username','password');
$res = $ua->request($req);

#Check the request
if ($res->is_success) {
    print OUT $ua->request($req)->as_string;
} else {
    print STDOUT "Error: " . $res->status_line . "\n";
}

##</code><code>##

HTTP/1.1 200 OK
Cache-Control: private
Connection: close
Date: Mon, 06 Jun 2005 16:41:28 GMT
Server: Microsoft-IIS/5.0
Content-Length: 420
Content-Type: text/html
Expires: Mon, 06 Jun 2005 16:40:29 GMT
Client-Date: Mon, 06 Jun 2005 16:41:22 GMT
Client-Peer: 204.255.44.151:80
Client-Response-Num: 1
Set-Cookie: ASPSESSIONIDQQQQGUUO=JIPPOIADCAKNEGMGFAHOGJAE; path=/
Title: Empty result