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

our ( $redis_host, $redis_port );
require 'config.pl';

my $pub = AnyEvent::Redis->new( host => $redis_host, port => $redis_port );

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

AnyEvent->condvar->recv;

