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