my $dbh=DBI->connect($SID, $user, $pass, {RaiseError=>1});