$ perl -e "sub DESTROY{warn'dead'}\$x=bless{};"
dead during global destruction.
 $ exec perl -e "sub DESTROY{warn'dead'}\$x=bless{};"
dead during global destruction.