my @list = threads->list();

print Dumper(\@list);

print "\ntotal time: ", format_time( tv_interval($t0) ), "\n";

__END__

##</code><code>##

$VAR1 = [];

total time: 0:1:1.26
A thread exited while 2 threads were running.