in reply to LWP::UserAgent Question

$ua->credentials( $netloc, $realm, undef, $pass )