Basic question on rlm_perl