$ perl -Mthreads -E'my $t = async { "code" }; $t->join; say "done"'
done