my $sth = $dbh->prepare(q{
    UPDATE DGKTO_BASIS
    SET SVT_BEITRAGSKONTONUMMER = ?
    WHERE VERSICHERUNGSTRAEGERCODE = ? and DIENSTGEBERKONTONUMMER = ?})
    || die "Can't prepare statement: $DBI::errstr";

my $upd  = "0000000100"; # Achtung auf die Länge!!
my $key1 = "04";
my $key2 = "00000015";

$sth->execute($upd, $key1, $key2) or die $dbh->errstr;