# define user agent
my $ua = LWP::UserAgent->new();
$ua->agent("USER/AGENT/IDENTIFICATION");

# make request
my $request = HTTP::Request->new(GET => $URI);

# authenticate
$request->authorization_basic($user, $pass);

# except response
my $response = $ua->request($request);