11 while ($arg = shift) {
12 my $delay = int(rand(500));
14 print "$thread arg $i is $arg\n";
23 my(@args) = ($thread) x int(rand(10));
24 print "$thread $count calling printargs @args\n";
25 printargs($thread, @args);
29 new Thread (\&start_thread, "A");
30 new Thread (\&start_thread, "B");
31 #new Thread (\&start_thread, "C");
32 #new Thread (\&start_thread, "D");
33 #new Thread (\&start_thread, "E");
34 #new Thread (\&start_thread, "F");
36 print "main: exiting\n";