sub Eater::DESTROY { eval { 1 }; };
my $ok = eval {
    my $foo = bless {}, 'Eater';
    die "Booo!";
    1;
};
warn "OK: [$ok]";
warn "\$\@: [$@]";