my $var = 1;
sub A::DESTROY { $var = 2; die 'ok'; $var = 3; }
my $obj = bless [], 'A';
$obj = ''; # no exception occurs
print "$var\n"; # 2
print "$@\n";   # "        (in cleanup) ok at - line 1."