my $data_source = "dbi:ODBC:AJsql";
my $username = "";
my $password = "";

my $dsn = "dbi:ODBC:Driver={SqlServer};SERVER=CND4290H26;Database=GameInfo;
Trusted_Connection=Yes;";

my $dbh = DBI->connect($data_source, $username, $password)
            or die $DBI::errstr;