my $ua = LWP::UserAgent->new();
$ua->credentials( $netloc, $realm, $uname, $pass )