my $dbh = DBI->connect( 'DBI:Oracle:'.$current_db, $current_user, $current_password, { RaiseError=> 0, PrintError => 0, AutoCommit => 0 } ) or print "Keine Verbindung zur Datenbank";