DBD::Oracle::st execute failed: called with 3 bind variables when 4 are needed
##</code><code>##

my $insql = "
	INSERT INTO PROGTBL
	(cola, colb, colc
	)
	VALUES ( ?, ?, ?)
	RETURNING PROGID INTO ?
";

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