my @list = threads->list();

print Dumper(\@list);

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

__END__