register my_perl with args