$SIB{__DIE__} = sub {
  mysub();
  die @_
};