$ perl -Mthreads -E'sub t { "code" } my $t = async { t(); warn("returned"); }; $t->join; say "done"'
returned at -e line 1.
done