use HTTP::Request ;
my $r = HTTP::Request->new('http://localhost');
$r->authorization_basic(qw/ user pass /);
print $r->as_string;
__END__
http://localhost -
Authorization: Basic dXNlcjpwYXNz