>>764
use 5.016;
use warnings;
use Safe;

our $aaa = 100;

my $cpt = Safe->new;
$cpt->share('$aaa');
say $cpt->rdo('foo.pl');

-- foo.pl
$aaa*100+200

http://perldoc.perl.org/Safe.html