package MyAuthDBI;
use base "Apache::AuthDBI";
sub authen {
  my ($r) = @_;
  Apache::AuthDBI::authen($r);
}
1;