4 print "In start_here with args: @_\n";
5 for ($i = 1; $i <= 5; $i++) {
6 print "start_here: $i\n";
11 print "Starting new thread now\n";
12 $t = new Thread \&start_here, qw(foo bar baz);
13 print "Started thread $t\n";
14 for ($count = 1; $count <= 5; $count++) {
15 print "main: $count\n";