9 print "Level $level for $arg\n";
10 print "(something is wrong)\n" if $level < 0 || $level > 1;
13 print "Back to level $level\n";
21 single_file("bar $i");
22 sleep 1 if rand > 0.5;
33 single_file("foo $i");
34 sleep 1 if rand > 0.5;
45 single_file("baz $i");
46 sleep 1 if rand > 0.5;
55 $foo = new Thread \&start_foo;
56 $bar = new Thread \&start_bar;
57 $baz = new Thread \&start_baz;
61 print "main: threads finished, exiting\n";