my $s = &shared( Thread::Semaphore->new );