Select Code to Download

use Modern::Perl qw/2015/;
use Safe;
 
...
my $unsafe_code = '# add some unsafe code here';
my $result = $compartment->reval($unsafe_code);
say "Result is $result";