perl -Mthreads -MThread::Queue -E"async{ sleep }->detach for 1 .. 16; $Q=new Thread::Queue; $Q->enqueue( qq[/a/longish/path/and/filename$_] ) for 1 .. 1e6; sleep;"