$SIG{__DIE__} = \&my_death;

sub my_death {
   warn @_;          #propagate the message via warn()
   POSIX::_exit(42); #exit with code 42
}