$SIG{__DIE__} = {
   # call the clean up function, then die
}