my $dbh = DBI->connect("dbi:Oracle:$DATABASE", $USERNAME, $PASSWORD,
          { RaiseError => 1, AutoCommit => 0, ora_charset => "UTF8" })
          or die ($DBI::errstr . "\n");