use strict;
use diagnostics;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
my $ua = LWP::UserAgent->new();

$ua->agent("Test/0.01");
$ua->credentials('mysite', 'myrealm', 'myuserid','mypassword');

my $req = HTTP::Request->new('GET', 'http://www.yahoo.com');

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

if ($response->is_error()) {
	printf " %s\n", $response->status_line;
}
else {
	print $response->content();
}