sub consumer {
        while( my($returned_value) = $queue->dequeue ) {
                printf "I have been returned: %i\n", $returned_value;
        }
}