Cassandra Client from Perl

gistfile1.pl

#!/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",
   username => "xxxx",
   password => "xxxxx",
   default_consistency => CONSISTENCY_QUORUM,
);
$loop->add( $cass );
$cass->connect->get;

my $get_stmt = $cass->prepare( "insert statement" )->get;
$get_stmt->execute->get;