LWP::UserAgent

$netlocで？になったが、そもそも下記を見たら一発だった。orz

    552 sub credentials
    553 {
    554     my($self, $netloc, $realm, $uid, $pass) = @_;
    555     @{ $self->{'basic_authentication'}{lc($netloc)}{$realm} } =
    556     ($uid, $pass);
    557 }

    560 sub get_basic_credentials
    561 {
    562     my($self, $realm, $uri, $proxy) = @_;
    563     return if $proxy;
    564
    565     my $host_port = lc($uri->host_port);
    566     if (exists $self->{'basic_authentication'}{$host_port}{$realm}) {
    567     return @{ $self->{'basic_authentication'}{$host_port}{$realm} };
    568     }
    569
    570     return (undef, undef);
    571 }

あとでコチラも読んでおきます。ハイ。

http://www.faqs.org/rfcs/rfc2617.html

こっち系のモジュールも読んでおこう。
http://search.cpan.org/~gaas/libwww-perl-5.805/lib/LWP/UserAgent.pm