Select Code to Download

# some initialisation, queue building etc...
my $shouty = threads->create('publish');
...
    while (my $out = $result->dequeue) {
    print "I got: $out\n";
}