Rlm_Perl question