sub one::DESTROY {
        die "foo\n";
    }
    eval {my $x = bless [], 'one'};
    say "\$\@ = $@";
    __END__
    $@ = 	(in cleanup) foo

##</code><code>##

    sub one::DESTROY {
        local $@;
        die "foo\n";
    }
    eval {my $x = bless [], 'one'};
    say "\$\@ = $@";
    __END__
    $@ =