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