P:\test>type 319494.pl8
use strict;
use threads;
use Thread::Queue;

my $queue = Thread::Queue->new;

my $prod_thread = new threads(\&producer, $queue);
my $cons_thread = new threads(\&consumer, $queue);

$prod_thread->join;
$cons_thread->join;

sub producer {
        my $queue = $_[0];
        my $value = 1234;
        $queue->enqueue( $value );
        $queue->enqueue( undef );
}

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

P:\test>319494
I have been returned: 1234
P:\test>