sub wexit (;$) {
  my $status = shift;
  my ($package, $fn, $line) = caller;
  print STDERR "exit status $status at $fn line $line\n";
  CORE::exit($status)
}

*CORE::GLOBAL::exit = \&wexit;