Help for this page

Select Code to Download

Select or download this
```
   $a = int(rand() * 100) + 1;
```

Select or download this

sub set_positive {
    lock $a;
...
        cond_broadcast($a);
    }
}