use strict;
use warnings;
use Data::Dumper;

sub DESTROY { eval { 1 } }

eval {
	my $obj = bless {};
	die "wrong";
};

print Dumper $@;
__END__
$VAR1 = '';