Select Code to Download

my $c;
my $ev = '$c = 4 + 5';
eval($ev);
print $c;

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