use strict;
use warnings;

use Safe;
my $box = new Safe;

$box->permit_only(
    ':base_core', 
    'rv2gv',      # ref to glob cast
    'padany'      # private variable
);

my $vi = $box->reval('5',1);
die "$@ " unless (defined $vi);
print "vi=$vi\n";