or download this
my $insql = "
INSERT INTO PROGTBL
...
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: $se
+lf->DBI::errstr";