Select Code to Download

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

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