use Safe;
Safe->new->reval('print 123;');