$string = <<'EOM';
	$data = {
		  'person' => bless( [
				       42
				     ], 'Person' )
		};
EOM

##</code><code>##

my $mysafe = Safe->new("MySafe");
$mysafe->reval($string);