#done starting all threads

 while (!$cleanShutDown) { # set in SIGHUP handler
    sleep 30;  # which is interupted by a signal
 }
 $logmon -> join();
 ... #more joins
 exit 0;