my $dbh=DBI->connect("dbi:ODBC:$DSN", $uname, $pwd) || die "Error: $DBI::errstr";