## executor.pl
use Safe;

if($ARGV[0]) {
	my $code = $ARGV[0];
	my $compartment = new Safe;
	$compartment->deny(qw(:base_io... MANY OP CODES....));
	$compartment->permit(qw(print say pack unpack require caller));
        ##I want to pass something into the STDIN for the $code reval-ed
	my $result = $compartment->reval($code);
	if ($@) {
		print "Unsafe code detected: $@";
	}
}