Занялся написанием одного достаточного большого проекта на perl + mysql. Большую важность играет структура таблиц БД, нормализация и целостность. Существует множество INSERT запросов в таблицы с множеством уникальных связок по полям. Каждая такая таблица имеет инкрементальное поле.
Задача сводится к тому, чтобы в результате каждого INSERTa знать добавилось ли поле, а ещё лучше - знать инкрементальное значение последней записи.
Казалось бы всё просто - выполняем метод do интерфейса с переданным в него параметром строки запроса и после этого имеем свойство mysql_insertid у того же интерфейса, которое если != 0 указывает на добавленную строку.
Но, как показала практика, такой метод весьма опасен. Во-первых, свойствао mysql_insertid доступно только для чтения, мы не можем его обнулять, а, во-вторых, - следующий неудачный INSERT после удачного будет содержать инкрементальное значение последнего удачного. Как вариант - переподключаться к базе после каждого INSERT. Да да, я тоже думаю что это маразм, поэтому предлагаю свой простой способ проверки на ошибки.
Сначала откажемся от метода do, будем действовать как с любым запросом на получение данных - сперва prepare, затем execute:

my $dbh = DBI->connect(...);
my $sth = $dbh->prepare(\"INSERT ...\");
$sth->execute();

после этого у интерфейса запроса $sth появится свойство rows, которое будет 0 если не добавлена ни одна строка или > 0 в зависимости от добавленных строк.
В итоге проверка сводится к простому:

return $dbh->{mysql_insertid} if ($sth->rows == 1 );
return 0;

для инсерта одной строки

Вот и всё.. Если баян - сильно не бейте, видел в инете другие способы, некоторые лочат для этого таблицы )) Такого способа не находил...

Очень странно, вот например функция last_insert_id() возвращает последний вставленный id в пределах соединения, т.е. не надо опасаться, что сюда другие попадут.
И в случае, если INSERT завершается с ошибкой, эта функция возвращает 0.

P.S. Я не помню правда, начиная с какой версии она доступна, проверь.

Знаю, читал.
Вот только у меня mod_perl,а в нем мона сделать так, чтоб соединение было одно.

да и делать нечто подобное:
my $sth = $dbh->prepare(\\\"select last_insert_id() as id\\\");
$sth->execute;
$id = $sth->fetchrow_hashref->{\\\'id\\\'};

каждый раз при необходимости узнать значение несколько неудобно и наверно накладно.