$ diff pm-cb-g pm-cb-g-hobo
27,28c27,28
< use threads (stack_size => 2 ** $stack_size);
< use Thread::Queue;
---
> use MCE::Hobo;
> use MCE::Shared;
41c41
< my ($readQ, $writeQ) = map 'Thread::Queue'->new, 1, 2;
---
> my ($readQ, $writeQ) = map { MCE::Shared->queue() } 1, 2;
43c43
< my $communicate_t = threads->create(\&communicate);
---
> my $communicate_t = MCE::Hobo->create(\&communicate);