sub get_basic_credentials {
   my ($self, $realm, $uri, $isproxy) = @_;
   if (  !$isproxy
      && $realm eq 'example'
      && $uri->host_port() =~ /(^|\.)example\.com:80\z/i
   ) {
      return ($self->{user}, $self->{passwd});
   }

   return $self->SUPER::get_basic_credentials($realm, $uri, $isproxy);
}