AnyEvent::Redis subscribe

chat_redis.pl

use strict;
use warnings;

use AnyEvent::Redis;

my $redis = AnyEvent::Redis->new(
  host => '127.0.0.1',
  port => 6379,
  encoding => 'utf8',
  on_error => sub { warn @_ },
);

my $cv = $redis->subscribe("subscribe_test", sub {
  my ($message, $channel) = @_;
  print "$channel : $message\n";
});
$cv->recv;

__END__

How to test this script
$ redis-cli publish "subscribe_test" "message"