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;
[download]

• The portable way to get the last inserted ID is to use DBI's last_insert_id() method. Well, it should be. The problem of getting automatically generated IDs is solved in very different ways in different databases, and this method should hide the implementation details. Unfortunately, some databases require extra arguments for the method call, some databases don't always return a value depending on how the insert statement was prepared. Anyway, better use that method instead of a DB-specific query. In the worst case, both are equal, in the best case, DBI can use a better API function of the database to get the value.
• You don't need the ampersand in Perl 5 to call a function. Quite the opposite is true: You should avoid the ampersand in Perl 5 when calling functions, as it can introduce nasty, hard-to-debug errors. The ampersand was needed in Perl 4, but that was decades ago. Read more at Re^2: Merge log files causing Out of Memory (just a note on ampersand).
• DBI can automatically handle all errors for you, you don't have to explicitly check for errors. Add the RaiseError attribute with a true value to the connect() call and any failed command will raise an error (i.e. call die).

Alexander