Help for this page
my $threadpool = Thread::Pool->new({ 'do' => \&my_function, ... ... return 1; }
Scalars leaked: 1 Scalars leaked: 1 Scalars leaked: -1 Scalars leaked: 1