PerlAuthenHandler auth::auth->authen_handler # <-- this works fine
PerlAuthzHandler auth::auth->group_handler

AuthType basic
AuthName 'Restricted Area Access'

require group group1

##</code><code>##

sub group_handler {
    my ($self, $r) = @_;

    my $requires = $r->requires;
    ...
    <so I have a list of requries, connect to my db and check if this user may pass>
}