#!/usr/bin/perl
use warnings;
use strict;
use AnyEvent::Redis;

my $pub = AnyEvent::Redis->new( host => $ENV{REDIS_HOST}, port => $ENV{REDIS_PORT} );

$pub->publish("channel test" => $ARGV[0])->recv;

AnyEvent->condvar->recv;

