{
   package MyUserAgent;
   @ISA = qw(LWP::UserAgent);

   sub get_basic_credentials
    {
      my ($self, $realm, $uri) = @_;

      #do stuff with $realm and $uri if desired
      return ('myuserid', 'mypassword');
    }
}

my $ua = MyUserAgent->new();