$ perl -Mthreads -E'sub t { "code" } my $t = async { threads->exit(); }; $t->join; say "done"'
done