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;


##</code><code>##

my $unsafe = qq|
     require feature;
     feature->import( qw{say switch} );
     say "Hope this works";
     return "I did what you said";
|;
# explicit load of feature, but doesn't work (unexpected result)
 
$ret = $cft->reval( $unsafe, undef );