my $sthopen = $dbh->prepare("INSERT INTO.....
$sthopen->execute;
&ErrorDBI;
my $resid = $dbh->prepare("SELECT LAST_INSERT_ID()");
$resid->execute;
&ErrorDBI;
my @idrow = $resid->fetchrow_array;