#!/usr/bin/perl

use Safe;
use Opcode;

my $code;
{ local $/; $code = <DATA> }

my $box = Safe->new();
$box->permit(Opcode::full_opset);
my $return_code = $box->reval($code);

__DATA__
use strict;
use vars qw($foo @bar);
$foo = "Friday 13th: unlucky for some";