my $SQL = <<EOSQL;
begin
  insert into foo (col1, uniquecol) values (?, ?);
  select id from foo where uniquecol=?;
end
EOSQL
my $ST = $DB->prepare($SQL);
$ST->execute('abacus', 'S/N5842', 'S/N5842');
while (my $hr = $ST->fetchrow_hasharray) {
   print "ID is $$hr{ID}\n";
}