use DBI;my $dbh = DBI->connect( 'dbi:mysql:host=localhost', 'username', 'password', {RaiseError => 1, AutoCommit => 0}) || die "Database connection not made: $DBI::errstr";$dbh->disconnect();