use Safe;

my $compartment = new Safe;

my $coderef = $compartment->reval("sub{$code}") or die "$@";

$coderef->(); # execute the code