Select Code to Download

# hires timestamp pid  tid  script       lineno  package         subro
+utine args
1144302961.37707  3168( 38) threadtest.pl(   19) Win32::Console::Write
+Char: n/a
...
1144302961.48975  3168(  6) threadtest.pl(   19) Win32::Console::Write
+Char: n/a
1144302961.48991  3168(  6) threadtest.pl(   19) Win32::Console::Write
+Char: n/a
1144302961.49124  3168( 14) threadtest.pl(   19) Win32::Console::Write
+Char: n/a

tperl -d:Ttrace threadtest.pl

package Devel::Ttrace;
use strict;
...
}

1;

#!perl -slw
use strict;
...
$Qwork->enqueue( undef ) for 1 .. $running;
sleep 1 while $running;
$_->join for @threads;