sub print_manager {
  lock $l_PRINT;
  while ( ! $f_TERM_PRINT ) {
    usleep(100_000);
    print STDOUT  '[' . timestamp() . ']: '
                  . $q_PRINT->dequeue() . "\n";
  }
  threads->exit();
} ## end print_manager.