#!/usr/bin/perl
use strict;
use warnings;

use DBI;

my $AJsql = "AJsql";

my $dsn = "dbi:ODBC:dsn=$AJsql";

my $dbh = DBI -> connect("dbi:ODBC:$AJsql;SERVER=CND4290H26") or die 
"Couldn't open database";


my $sth = $dbh->prepare(q{SELECT * FROM Games}) or die
"Couldn't create statement";

$sth->execute() or die "couldn't execute";

print $sth;


$dbh->disconnect;