my $code = 'my $a = shift; warn $a';

my $compartment = Safe->new(':default');
$safe = sub { $compartment->reval($code) || die $@ };
$safe->(42);