my $timer_go:shared = 0;
      
      my $worker = threads->create(\&worker, $call);
      my $timer = threads->create(\&timer,$worker);
   
      
      $timer_go=1;
      
      $timer->join();
      $worker->join();