Select Code to Download

#! /usr/bin/perl

...
manage( threads->create(\&worker) );

print Dumper $_ for $Q->dequeue_timed(2);