my $dbh = DBI->connect(SQLCONNECT,SQLUSER,SQLPASS,{RaiseError => 1});