#!usr/bin/perl

use strict;
use warnings;
use Thrift::API::HiveClient2;

my $port = 12345;
my $host = '123:456:789:987';

my $client = Thrift::API::HiveClient2->new(
host     =>  $host ,
port     =>  $port,
);

$client->connect() or die "Failed to connect\n";

my $query = "hive query;";

my $rh = $client->execute($query);