use Safe;
use Devel::Peek;

my $x = bless \ do { my $a = 0 }, "x";
print Dump($x);
my $y = Safe->new->reval('bless \\ do { my $a = 0 }, "x"');
print Dump($y);
bless $y, ref $y;
print Dump($y);