#!/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 lib '/var/app/orchard/collab/jgetter/perllib';
use Orchard::Session;
use Orchard::DB::Connect;

my $dsn = Orchard::DB::Connect->dsn( 'snowflake' );
my $dbh = DBI->connect( @{ $dsn->{'conn'} } ) || die "Conn: $DBI::errstr";

my $warehouse = "qa_abacus_wh";
my $role = "dev_engineering";
my $database = "dev_engineering";
my $schema = "jgetter";

$dbh->do("use warehouse $warehouse") or die "Error: $DBI::errstr\n\n";
$dbh->do("use role $role") or die "Error: $DBI::errstr\n\n";
$dbh->do("use $database") or die "Error: $DBI::errstr\n\n";
$dbh->do("use schema $schema") or die "Error: $DBI::errstr\n\n";
my $x;