my $dbh = DBI ->connect($dsn,$user,$password,{RaiseError=>1,AutoCommit => 1});