Select Code to Download

DBD::Oracle::st execute failed: called with 3 bind variables when 4 ar
+e needed

my $insql = "
    INSERT INTO PROGTBL
...
    my $sth = $self->dbh->prepare($insql) or die "Can't prepair statem
+ent: $self->DBI::errstr";
    $sth->bind_param_inout(4, \my $new_id, 99);
    $sth->execute( $foo, $bar, $baz)