Select Code to Download

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

use strict;
...
my ($returned_value) = $queue->dequeue;

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

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

use strict;
...
                printf "I have been returned: %i\n", $returned_value;
        }
}

I have been returned: 1234
Use of uninitialized value in printf at ./2.pl line 23.
I have been returned: 0

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

use strict;
...
                printf "I have been returned: %i\n", $returned_value;
        }
}

I have been returned: 1234
Use of uninitialized value in printf at ./3.pl line 25.
I have been returned: 0