$ diff test-cache-parallel-mce.pl test-cache-parallel-redis.pl 
10a11,12
> use Redis;
> use Sereal qw/encode_sereal decode_sereal/;
17c19
< my $c     = MCE::Shared->cache();
---
> my $c     = Redis->new;
29c31
<             for ( @{ $chunk_ref } ) { $c->set($_, {md5 => $_}, 600) }
---
>             for ( @{ $chunk_ref } ) { $c->setex($_, 600, encode_sereal({md5 => $_})) }
33c35,39
<             for ( @{ $chunk_ref } ) { $f++ if ref $c->get($_) eq 'HASH' }
---
>             for ( @{ $chunk_ref } ) {
>                 my $srl = $c->get($_);
>                 $srl = decode_sereal($srl) if defined $srl;
>                 $f++ if ref $srl eq 'HASH';
>             }