my $ua = LWP::UserAgent->new(
    keep_alive  =>  1
);
my $request = new HTTP::Request GET => "http://www.perlmonks.org";
$request->authorization_basic("username", "password");
my $response = $ua->request($request);
if ($response->is_success) {
    print STDOUT $response->content;
} else {
    print STDERR "Error retrieving page!\n";
};