use strict;
use warnings;
use 5.012;

use Safe;

if($ARGV[0]) {
    my $code = $ARGV[0];

    my $compartment = Safe->new;
    $compartment->share('*STDIN');
    $compartment->permit_only(qw{ print readline });
    $compartment->reval($code);

    if ($@) {
        print "Unsafe code detected: $@";
    }

}

--output:--

$ perl 2.pl '
print "Enter some stdin: ";
my $line = readline *STDIN;
print "From STDIN: $line";
'
Unsafe code detected: 'private value' trapped by operation mask at (eval 5) line 1.