1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
use Thread; sub start_here { my $i; print "In start_here with args: @_\n"; for ($i = 1; $i <= 5; $i++) { print "start_here: $i\n"; sleep 1; } } print "Starting new thread now\n"; $t = new Thread \&start_here, qw(foo bar baz); print "Started thread $t\n"; for ($count = 1; $count <= 5; $count++) { print "main: $count\n"; sleep 1; }