use strict; use warnings;

 use threads;
 use MCE::Channel;

#my $chnl = MCE::Channel->new(impl => "ThreadsFast");  # 1.734s none
#my $chnl = MCE::Channel->new(impl => "Threads");      # 2.247s Sereal
                                                       # 3.232s Storable

 my $chnl = MCE::Channel->new(impl => "SimpleFast");   # 0.965s none
#my $chnl = MCE::Channel->new(impl => "Simple");       # 1.940s Sereal
                                                       # 3.305s Storable

 my $size = 1_000_000;
 my $thrd = threads->create(sub {
     my $ret; $ret = $chnl->recv() for 1..$size;  
 });

 $chnl->send("this is something $_") for 1..$size;
 $thrd->join();