print "::::::::::::: threads\n";
require Data::Dumper;
my $d = Data::Dumper->new([threads->list()]);
$d->Indent(1);
print $d->Dump;
print "::::::::::::: /threads\n";