my $dbh = DBI->connect($dsn,$username,$password,{RaiseError=>1, AutoCommit=>1}) or 
    die $DBI::errstr;