$SIG{__DIE__} = sub {
   # do something
};