Help for this page
$a = int(rand() * 100) + 1;
sub set_positive { lock $a; ... cond_broadcast($a); } }