my $c;
my $cpt = new Safe;
$cpt->share('$c');
my $ev = '$c = 4 + 5';
$cpt->reval($ev);
print $c;