title: Perl Reading from Thread::Queue with timeout
body: <p>I am working in a boss worker crew multithreaded scenario with Thread::Queue in Perl.<br>
  The boss enqueues tasks and the workers dequeue from the queue.<br>
  I need to achieve that the worker crew sends downstream ping messages in case the boss does not send a task via the queue for x seconds.<br>
  Unfortunately there seems to be no dequeue method with a timeout.<br>
  Have I missed something or would you recommend a different approach/different data structure?</p>