use AnyEvent::Hiredis;

my $redis = AnyEvent::Hiredis->new(
    host => '127.0.0.1',
    port => 6379,
);

$redis->command( [qw/SET foo bar/], sub { warn "SET!" } );
$redis->command( [qw/GET foo/, sub { my $value = shift } );

$redis->command( [qw/LPUSH listkey value/] );
$redis->command( [qw/LPOP listkey/], sub { my $value = shift } );

# errors
$redis->command( [qw/SOMETHING WRONG/, sub { my $error = $_[1] } );

Rate     ae_redis  ae_hiredis
    AnyEvent::Redis    7590/s   --        -89%
    AnyEvent::Hiredis 69400/s   814%      --

my $redis = AnyEvent::Hiredis->new; # 127.0.0.1:6379

my $redis = AnyEvent::Hiredis->new(server => '192.168.0.1', port => '6379');

$redis->command( ['SET', $key, 'foo'], sub {
    my ($result, $error) = @_;

    $result; # 'OK'
});

$redis->command( ['GET', $key], sub {
    my ($result, $error) = @_;

    $result; # 'foo'
});