gistfile1.pl

#!/usr/bin/env perl

use strict;
use warnings;
use MojoX::Redis;

my $redis1 = MojoX::Redis->new();

$redis1
->sadd ( "set1" => "foo" )
->set ( "foo" => "foo desc" )
->sadd ( "set1" => "bar" )
->set ( "bar" => "bar desc" )
->sadd ( "set2" => "foo1" )
->set ( "foo2" => "foo desc" )
->sadd ( "set2" => "bar" )
->set ( "bar2" => "bar desc" )

->quit( sub { shift->stop } )->start;

my $redis2 = MojoX::Redis->new();

$redis2->smembers ( "set1",
        sub {
                my ( $redis, $res ) = @_;
                foreach my $e ( @$res ) {
                        $redis->get( $e => sub { printf "%s %s\n", $e, $_[1]->[0]; } );
                }
                $redis->quit( sub { $redis->stop } );
        }
)->smembers ( "set2",
        sub {
                my ( $redis, $res ) = @_;
                foreach my $e ( @$res ) {
                        $redis->get( $e => sub { printf "%s %s\n", $e, $_[1]->[0]; } );
                }
                $redis->quit( sub { $redis->stop } );
        }
->start;