Auth-Type in rlm_perl