Select Code to Download

package MyUA;
use base 'LWP::UserAgent';
...
  sub set_creds { $user = shift; $pass = shift; }
  sub get_basic_credentials { ($user, $pass) }
}