my $DSN = "driver={SQL Server};Server=$host;database=$table;UID=$uname;PWD=$pwd;";
my $dbh=DBI->connect("dbi:ODBC:$DSN") || die "Error: $DBI::errstr";

##</code><code>##

my $DSN = "driver={SQL Server};Server=$host;database=$table;";