we should use the THX macros in place of my_perl