Hi All Whether it is possible to determine that thread is finished not using additional variables through threads::shared

use threads;
my $thread = async {sleep 10; print "Ok\n"};
my $i = 0;
while (1) {
   $i++; print "$i - $thread\n";
   if (??????? $thread finished ??????) {last};
   sleep 1;
};
[download]

Thanks and !!! HAPPY NEW YEAR !!!