my $dsn = "MADDY";
my $user = "Maddy17";
my $pw = "";
my $dbh = DBI->connect("dbi:ODBC:$dsn", $user, $pw, {
  RaiseError => 1,
});