$ perl -wle 'my $c=0; sub DESTROY { die "dead: ",$c++; }; { bless \my $o; bless \my $p }'
        (in cleanup) dead: 0 at -e line 1.
        (in cleanup) dead: 1 at -e line 1.