$ perl -Mwarnings -Mstrict -E '
  sub DESTROY { say "invoked destructor"; die "aieeee" }
  say "creating object";
  { bless( {} ) }
  say "object destroyed (should not reach here): $@"
'
creating object
invoked destructor
        (in cleanup) aieeee at -e line 2.
object destroyed (should not reach here):