my $dbh = DBI->connect("dbi:mysql:foo", "bar", "baz", { AutoCommit => 1, RaiseError => 1}) or die die "Can't connect: ", $DBI::errstr;