#!/usr/bin/perl -w

use strict;
use warnings;
use 5.012;

use Safe;
use Carp;

my $code = shift;
die "Usage: $0 <code> <premitted op> <permitted op> ..." unless defined $code;

my @perm = @ARGV;

print "Trying: $code\n";

my $compartment = Safe->new;
$compartment->share('*STDIN');
$compartment->share('&Dumper');

$compartment->permit_only(@perm);

# Trap detailed stack trace
my $stack;
local $SIG{__DIE__} = sub { $stack = Carp::longmess(shift) };
print $compartment->reval($code);

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