eval {
  $sth->prepare(...);
  $sth->execute(...);
  $sth->prepare(...);
  $sth->execute(...);
  $sth->prepare(...);
  $sth->execute(...);
};
if ( $@ ) {
  warn "Shit meine Logische einheit xyz zu machen ist fehlgeschlagen"
  # ... weitere fehlerbehanldung
}