#!/usr/bin/perl
use strict;
use warnings 'all';
use Safe::World;

my ($stdout, $stderr);
my $world = Safe::World->new(
	stdout => \$stdout,
	stderr => \$stderr,
);

print "World created\n";

$world->eval('print 12 ** 2, "\n";');
die $@ if $@;

print $stdout, "***End***\n";

# CLEANup should follow