#!/usr/bin/perl 

use autodie;
use strictures 1;
use Eval::WithLexicals;
use Data::Dumper::Concise;

my($x) = Eval::WithLexicals->new();
my $y = 3;
my $z = 5;

use strict 'refs';
eval {
    $x = $y + $z;    
    return;
};
    
print Dumper($x);