Hola
hice esto en Perl::
use DBI;
use Oraperl;
$ENV{"ORACLE_HOME"} = "/opt/oracle/product/9.2.0";
$dbh = DBI-> connect("dbi:Oracle:host=algunhost;sid=algunSID", "esquema", "secreto");
DBI-> errstr;
my $ipuser =$ENV{"REMOTE_ADDR"};
$user_exists = "select ip from hit_cri where ip = '$ipuser'";
$sth = $dbh->prepare($user_exists);
$rv = $sth->execute;
my $userip = $sth->fetchrow_array;
$sth->finish;
if ($userip = $ipuser) {
$value = "select main from hit_cri where ip = '$ipuser'";
$stha = $dbh->prepare($value);
$rva = $stha->execute;
my $value_keep = $stha->fetchrow_array();
$stha->finish;
$increase = "update hit_cri set ...