my $stmt = "UPDATE tabellenname SET spalte1 = ?, spalte2 = ? WHERE spalte3 = ?";
my $rows = $dbh->do( $stmt, undef, $spalte1, $spalte2, $spalte3 );

print "$rows Zeilen aktualisiert\n";

$dbh->commit;

The \%attr parameter can be used to alter the default settings of PrintError, RaiseError, AutoCommit, and other attributes

sub update {
  my $spalte1 = shift;
  my $spalte2 = shift;
  my $spalte3 = shift;

  my $stmt = "UPDATE tabellenname SET spalte1 = ?, spalte2 = ? WHERE spalte3 = ?";
  my $rows = $dbh->do( $stmt, $spalte1, $spalte2, $spalte3 );

  print "$rows Zeilen aktualisiert\n";

  $dbh->commit;
}

update($spalte1, $spalte2, $spalte3);

sub update {
  my $stmt = "UPDATE tabellenname SET spalte1 = ?, spalte2 = ? WHERE spalte3 = ?";
  my $rows = $dbh->do( $stmt, undef, @_[0..2] );

  print "$rows Zeilen aktualisiert\n";

  $dbh->commit;
}

update($spalte1, $spalte2, $spalte3);

sub update {
  my %attr = ( PrintError => 1, AutoCommit => 0 );
  my $stmt = "UPDATE tabellenname SET spalte1 = ?, spalte2 = ? WHERE spalte3 = ?";
  my $rows = $dbh->do( $stmt, \%attr, @_[0..2] );

  print "$rows Zeilen aktualisiert\n";

  $dbh->commit;
}

update($spalte1, $spalte2, $spalte3);

sub update {
  my $dbh = shift;
  my $stmt = "UPDATE tabellenname SET spalte1 = ?, spalte2 = ? WHERE spalte3 = ?";
  my $rows = $dbh->do( $stmt, undef, @_[1..3] );
 
  print "$rows Zeilen aktualisiert\n";

  $dbh->commit;
}

my $dbh=DBI->connect("dbi:Oracle:$db_name",$db_user, $db_pw, \%attr) or die "Fehler $DBI::errstr";

update($dbh,$spalte1, $spalte2, $spalte3);

$dbh=DBI->diconnect();