our $count = 0;
sub my_callback {
  warn "I've been called ".(++$count)." times\n";
  ...
}
my $thread = threads->create(..., \&my_callback);
$thread->join;

print "count = $count\n"; # prints 0