Select Code to Download

   while( my $returned_value = $queue->dequeue   ) {
   #        ^               ^

P:\test>type 319494.pl8
use strict;
...
P:\test>319494
I have been returned: 1234
P:\test>