my $threadid = threads->self:

##</code><code>##

my $threadid = threads->self->tid;

##</code><code>##

perl -mthreads -le"print $threads::VERSION"
1.62