share variables in perl script (rlm_perl)