use threads;
my $thread = async {sleep 10; print "Ok\n"; return 1 };

my $returnValue = $thread->join;

print $thread->tid, ' completed and returned: ', $returnValue, "\n";