working rlm_perl example ?