#!/opt/perl-5.8.2/bin/perl -w

use strict;
use Thread::Queue::Any;

my $value = 1234;

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

$queue->enqueue( $value );

my ($returned_value) = $queue->dequeue;

printf "We have returned %i\n", $returned_value;