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

$ perl -wle 'sub DESTROY { die "dead: $_[0]"}; { bless \my $o; bless \my $p }'
        (in cleanup) dead: main=SCALAR(0x805f0d4) at -e line 1.
        (in cleanup) dead: main=SCALAR(0x805f164) at -e line 1.