Команды async redis, использующие AnyEvent::Hiredis

Question

Я безуспешно пытаюсь установить переменную окружения, используя AnyEvent::Hiredis,

Я использую Redis 4,02 на Centos 7

#!/usr/bin/perl

use strict;

use AnyEvent::Hiredis;

my $redis = AnyEvent::Hiredis->new;

$redis->command( ['SET', "ABC", 'foo'], sub {});