#!/STANDARDINSTALLPATHTHATWORKS/5.26.1/bin/perl
use strict;
use warnings;

use Data::Dumper;
use DBI;

my $database = "DB_REMOVED";
my $hostname = "HOST_REMOVED";
my $port = "PORT_REMOVED";

my $user = "USER_REMOVED";
my $pass = "PASS_REMOVED";

my $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port";
DBI->trace(2);
my $dbh = DBI->connect($dsn, $user, $pass) or die("Failed to connect to DB: $!");