print "Insert option number and press ENTER:\n"; my $userinput; $userinput = ; chomp ($userinput); print "Option choosen $userinput, press ENTER\n"; ReadMode 1; #ReadMode('noecho'); $option= ReadKey(6); $option=$userinput; if($option==1){ if($runProvisioning==1){ print "\nError!\nProvisioning already started\n"; $option = 0; sleep(3); next; } splice(@thr); # clear thread table %cmdTotal = (); # clear command counters $cmdFailed = 0; # clear fail counter { lock ($runProvisioning); $runProvisioning = 1; } my $semaphore = Thread::Semaphore->new($num_con); $semaphore->down($num_con); # create semaphore = 0 print "\nWait...\n"; # create threads for(my $i = 0; $i < $num_con; $i++) { push @thr, threads->new(\&Connection, $i,$semaphore); sleep(2); } # foreach (@thr) { # $_->join(); # } sleep($wait2start); print "Provisioning started...\n"; sleep (2); $semaphore->up($num_con); yield(); $startTime = [gettimeofday];