Thread::Queue

perl -Mthreads -MThread::Queue -e "$tq=new Thread::Queue; async{print $tq->dequeue.qq(\n) while 1}->detach; async{sleep 1 && $tq->enqueue($_) for 1..4}->detach; sleep 10"