we use EVAL_PERL within our tt