9 my $thread = shift @copyargs;
12 while ($arg = shift @copyargs) {
13 my $delay = int(rand(500));
15 print "$thread arg $i is $arg\n";
22 my $thread = $threadargs[0];
25 my(@args) = ($thread) x int(rand(10));
26 print "$thread $count calling printargs @args\n";
27 printargs($thread, @args);
31 new Thread (\&start_thread, "A");
32 new Thread (\&start_thread, "B");
33 new Thread (\&start_thread, "C");
34 new Thread (\&start_thread, "D");
35 new Thread (\&start_thread, "E");
36 new Thread (\&start_thread, "F");
38 print "main: exiting\n";