perl -MThread::Queue -E"$Q=new Thread::Queue; $Q->pending while Win32::Sleep( 1 )"

##</code><code>##

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;"