#!/usr/bin/perl

use strict;
use warnings;
use open ':std', ':encoding(UTF-8)';

use JSON::XS;
use FileHandle;
use Text::CSV::Easy(qw/csv_build csv_parse/);

use Neo4j::Driver;
my $id;
my $tx;
my $driver  = Neo4j::Driver->new('neo4j://qa-neo4j-cluster.theorchard.io:7687')->basic_auth( 'jgetter', 'E%4uD%k4i)D0)S9r8)Fxv)2B' );
my $session = $driver->session;
my $query   = "MATCH (n:NrContribution) WHERE n.id='006ef8d3-6028-43d8-b4ea-564294bd7ac0' return n";
my @records = $driver->session->execute_read(
    sub {
        $tx->run( $query, { 'id' => '006ef8d3-6028-43d8-b4ea-564294bd7ac0' } )->list;
    }
);
my $x;