Select Code to Download

my $dbh = DBI->connect("dbi:ODBC:$dsn",
                       {
...
                       }
                      )
    || die "Couldn't open database";