my $headers = HTTP::Headers->new();
$headers->authorization_basic('user', 'pass');
my $request = new HTTP::Request(GET => $url, $headers);

##</code><code>##

$ua->credentials('www.domain.com:80', '', 'user', 'pass');