register my_perl