my $dbh = DBI->connect('DBI:ODBC:Driver={SQL Server};Server=SQL2008;Database=db_main;UID=user;PWD=pass')
    or die "$DBI::errstr\n";