use DBI();
$DSN = 'driver={SQL Server};Server=pc62003302;database=TLRS;uid=sa;pwd=;';
$dbh = DBI->connect("dbi:ODBC:$DSN",'','') or die "$DBI::errstr\n";