package Bob;
use Safe;
use Digest::MD5;

$cpt = new Safe;
$cpt->share('&alpha');

$str1 = 'print Digest::MD5::md5_hex("Jerrad"), "\n"';
$str2 = 'print "Hello World\n"';
sub alpha{ "Do things\n" };
sub beta { "Do other things\n" };

eval $str1;
eval $str2;
eval "print &alpha";
eval "print &beta";

$cpt->reval($str1);
$cpt->reval($str2);
$cpt->reval("print &alpha");
$cpt->reval("print &beta");
__END__