use LWP;
my $headers = HTTP::Headers->new();
$headers->authorization_basic('user', 'pass');
my $request = new HTTP::Request(GET => $url, $headers);
$request->dump;
__END__
GET -
Authorization: Basic dXNlcjpwYXNz

(no content)