my $insql = "
	INSERT INTO PROGTBL
	(column names...)
	VALUES ( ?, ?, ?)
	RETURNING PROGID INTO :id
";

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

##</code><code>##

DBI error Can't mix placeholder styles (:foo/?)