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