my $DSN = 'driver={SQL Server};Server=server_name;database=database_name;uid=user;pwd=password;'; 
my $dbh = DBI->connect("dbi:ODBC:$DSN") or die $DBI::errstr\n";