use DBI;
my $data_source = "dbi:ODBC:driver={SQL Server};Server=$host;database=$database;uid=$login;pwd=$password;";
my $dbcon = DBI->connect_cached($data_source,$login,$password,{PrintError=>0,RaiseError=>0,AutoCommit=>1});