talk2vino

#!/usr/bin/perl
use IO::Async::Loop;
use Net::Async::CassandraCQL;
use Protocol::CassandraCQL qw( CONSISTENCY_QUORUM );
use Protocol::CassandraCQL::Result;

my $loop = IO::Async::Loop->new;
my $cass = Net::Async::CassandraCQL->new(
   host => "ipaddress of the Seed Nodes",
   keyspace => "xxxx",