sub REAPER {
  1 until ( waitpid(-1, WNOHANG) > 0)
}