bash$ perl -Mthreads -e '$_->join for map async{ warn $_ for $_ .. $_ + 1e3 }, map $_ * 1e3, 1 .. 20' >& /dev/tcp/0/1234