use Safe;
my $compartment = new Safe;
$compartment->reval( 'no warnings; BEGIN { $^C = 1 } ' . $code );