Select Code to Download

use Win32::Semaphore;
my $sem = new Win32::Semaphore(0,1)
...

   SPIN: while(! $sem->wait(0)) {
...