Could someone give an example on the proper use of the Safe module. In the Panther book eval allows the use of a variable like so.

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

The printout should be 9. Now when I use Safe on a module it doesn't turn out quite the same way.

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

When $c is printed out its nothing. Whats going on in Safe? Whats an example of its proper use?

My thanks for your enlightenment,
BMaximus