#!perl
use strict;
use warnings;

use Safe;
my $box = new Safe;
$box->permit_only(':base_core');

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