Select Code to Download

$ua->proxy(["http"], "http://username:password@proxy.com");

my $ua = LWP::Custom->new();
$ua->proxy(["http"], "http://proxy.com");
...
    sub set_basic_credentials{ ( $username, $password ) = @_[1..2] }
    sub get_basic_credentials{ $username, $password };
}