strange thing happening with rlm_perl