bdimych has asked for the wisdom of the Perl Monks concerning the following question:

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; };
Thanks and !!! HAPPY NEW YEAR !!!