gistfile1.txt

  tcp_connect 'localhost','18121', sub {
    my ($fh) = @_;
    sleep 10;
    my $res;
    ok( defined @_, "connect" );
    ok( write($fh, "ruok\n"), "send ruok ". int($!) );
    ok( read($fh, $res, 4), "recv ruok". int($!) );
    print Dumper [ $!, $res ];
    chomp($res);
    ok($res eq "imok", "imok");

    $cv->send(1);
  };
  ok($cv->recv(), "cv recv");