use warnings;
use strict;
use Safe;
use feature qw{say};

say "Hello!";

my $cft = Safe->new;

$cft->deny_only();

my $ret = $dft->reval(qq{return "Hello Again!"}, undef);

say $ret;