10 print "Uh oh: $who entered while locked by $global\n" if $global;
13 for ($i = 0; $i < int(10 * rand); $i++) {
15 select(undef, undef, undef, 0.1);
23 for ($j = 0; $j < 10; $j++) {
25 for ($i = 0; $i < int(10 * rand); $i++) {
27 select(undef, undef, undef, 0.1);
34 for ($j = 0; $j < 10; $j++) {
36 for ($i = 0; $i < int(10 * rand); $i++) {
38 select(undef, undef, undef, 0.1);
45 for ($j = 0; $j < 10; $j++) {
47 for ($i = 0; $i < int(10 * rand); $i++) {
49 select(undef, undef, undef, 0.1);
58 Each pair of square brackets [...] should contain a repeated sequence of
59 a unique upper case letter. Lower case letters may appear randomly both
60 in and out of the brackets.
62 $foo = new Thread \&start_a;
63 $bar = new Thread \&start_b;
64 $baz = new Thread \&start_c;
65 print "\nmain: joining...\n";