# some initialisation, queue building etc...
my $shouty = threads->create('publish');

# This is the boss loop, dispatches to workers 
while (<>) {
    chomp; # I guess
    $work->enqueue $_;
)

sub publish {
    while (my $out = $result->dequeue) {
    print "I got: $out\n";
}