use Safe;
use Opcode;

my @permit_opsets = qw(print :base_core :base_mem
                       :base_loop :base_math);
my @deny_opsets   = qw(die warn);

my $c = Safe->new();
$c->permit_only( @permit_opsets );
$c->deny(        @deny_opsets   );
$c->reval( "@ARGV" );

die("ack: $@") if $@;