. This file is offered as-is,
# without any warranty.
use strict;
use warnings;
use Socket;
use JSON;
my $port = 7000;
my $debug = 0;
my ($sig, $sig_pid);
my $use_ipv6 = 0;
# Parse command line ar\r\n$/;
} else {
# e.g. '["foo", "bar", 42]'
$data = redis_encode(JSON->new->allow_nonref->decode($1));
}
print $connection $data;
flush $connec