DBI->connect('dbi:Oracle:XE', 'scott', 'tiger', {RaiseError => 1, AutoCommit => 0}) or die "Database connection not made: $DBI::errstr";}