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