sinです。
返事遅れて申し訳ありません。

> 川合孝典です。
> 
> > sinです。
> （中略）
> > Perlでインサート後以下の構文で無事取り出す事が出来ました。
> > 有り難う御座いました。
> >
> > $q = $db->prepare("select LAST_INSERT_ID()");
> > $q->execute()
> > or &error('データベースエラー','コマンド実行出来ません1');
> > $FORM{'ID'} = $q->fetchrow_array;
> 
> DBD::mysqlであれば
> 　$insertId = $db->{'mysql_insertid'}
> をお試しあれ。
>
上記構文で取り出す事が出来ました。
こっちの方が簡単ですね　(^-^)

この様な使い方は、参考にしている書籍には書いていないのですが、参考になるサイトはあるでしょうか？
不躾で申し訳ありませんが、お教え下さい。