$dbh->{RaiseError}=1;
eval {
 insert...
 get last id...
 insert...
};
if ($@) {
 insert failed...
}
insert succeeded...