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

print "$rows Zeilen aktualisiert\n";

$dbh->rollback if $rows;