$ perl -E'
   BEGIN {
      use threads;
      async { say "foo"; } ->join
         for 1..3;
   }
'
foo
foo
foo