fix bug "my_perl undeclared"