PerlModule MyAuthDBI
<Location /test>
  AuthType Basic
  PerlAuthenHandler MyAuthDBI::authen
...
</Location>