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;

##</code><code>##

DBI connect('driver={SQL Server};server=gz-datebase;database=tg;uid=sa;pwd=aaa
il','',...) failed:  at C:\DOCUME~1\gzcnc\LOCALS~1\Temp\dir70.tmp\t.pl line 6
[Microsoft][ODBC SQL Server Driver][SQL Server]user 'GZ-DATEBASE\gzcnc' login failed
�B (SQL-28000)(DBD: db_login/SQLConnect err=-1) at C:\DOCUME~1\gzcnc\LOCALS~1\Te
mp\dir70.tmp\t.pl line 6.