package MyUA;
use base 'LWP::UserAgent';
{
  my $user;
  my $pass;

  sub set_creds { $user = shift; $pass = shift; }
  sub get_basic_credentials { ($user, $pass) }
}