sub kill_children {
   kill TERM => keys %CHILDREN;
   sleep while %CHILDREN;
}