use strict;
use warnings;
use DBI;
# -- Your credentials
my $user     = "svc-ndevfcollect";
my $password = "yourPasswordHere!";  # Use secure storage in production
# -- JDBC URL to Trino (443 confirmed)
my $url = "jdbc:trino://query.comcast.com:443?SSL=true&catalog=dx";
# -- JDBC bridge connection (localhost to Java proxy)
my $dsn = "dbi:JDBC:hostname=localhost;port=12345;url=$url";
# -- Optional: Print connection hash for debugging
my %conn_attrs = (
    RaiseError     => 1,
    jdbc_user      => $user,
    jdbc_password  => $password,
    jdbc_catalog   => "dx",            # Change as needed
);
use Data::Dumper;
print Dumper(\%conn_attrs);
# -- Connect to Trino
my $dbh = DBI->connect($dsn, undef, undef, \%conn_attrs)
    or die "Failed to connect: $DBI::errstr";
print "Connected successfully!\n";
# -- Run sample query
my $sth = $dbh->prepare("SELECT current_user");
$sth->execute();
while (my @row = $sth->fetchrow_array) {
    print "User: $row[0]\n";
}
$sth->finish();
$dbh->disconnect();