$ perl -le 'sub DESTROY { die "dead" }; { bless \my $o } print $@;'
        (in cleanup) dead at -e line 1.