$ perl -wE'
   DESTROY { die "foo" }
   { bless({}) }
'
        (in cleanup) foo at -e line 2.

$ perl -wE'
   DESTROY { die "foo" }
   our $o = bless({});
'
        (in cleanup) foo at -e line 2 during global destruction.