PerlAuthenHandler "sub { (shift->get_basic_auth_pw)[0];  }"