use strict;
use DBI;
use DBD::Oracle;

my $db_user="xx";
my $db_pass="xxxxxxxx";
my $db_host="xxxxxx";

my $dbh = DBI->connect( "dbi:Oracle:$db_host", $db_user, $db_pass,
                      ) || die "Database connection not made: $DBI::errstr";

# $dbh->{RaiseError} = 1;
# $dbh->{PrintError} = 1;
# $dbh->{AutoCommit} = 0;

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

my $upd  = "00000000099";
my $key1 = "04";
my $key2 = "00000015";

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

print "ok";