$dbh->do("LOCK TABLES tbl WRITE");
$dbh->do("INSERT INTO tbl VALUES(NULL,'foo','bar')");
my $ref = $dbh->selectcol_arrayref("
    SELECT LAST_INSERT_ID() FROM tbl");
$dbh->do("UNLOCK TABLES");