use DBI;
  use DBD::ODBC;

my ( $data_source, $database, $user_id, $password ) = qw( LocalHost tg sa aaa );
my $conn_string = "driver={SQL Server};server=gz-datebase;database=tg;uid=sa;pwd=aaa";
my $dbh = DBI->connect( "DBI:ODBC:$conn_string" ) or die $DBI::errstr;