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
}

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

my $dbh = db_open();
my $id = ''; ## //Wird durch Param übergeben ...
my $sql = "SELECT id,name,text FROM test WHERE id=$id";
my $allref = $dbh->selectall_arrayref($sql, { Slice=>[] });
foreach my $test (@$allref) {
$htc->param(
homename => $test->[1],
home => $test->[2]
);
} $dbh->disconnect();

my $dbh = db_open();
my $id = ''; ## //Wird durch Param übergeben ...
my $stmt = q~SELECT id,name,text FROM test WHERE id=?~;
my $sth = $dbh->prepare( $stmt ) or die $dbh->errstr;
$sth->execute($id) or die $dbh->errstr;
while(my $row = $sth->fetchrow_hashref() ) {
$htc->param(
homename => $row->{'name'},
home => $row->{'text'}
);
} $dbh->disconnect();

sub db_open {
my $db = 'test'; my $host = 'localhost';
my $user = 'test'; my $pw = '123456';
my $dsn = "DBI:mysql:database=$db;host=$host";
my $opt = { RaiseError => 1, AutoCommit => 1 };
my $dbh = DBI->connect($dsn, $user, $pw, $opt);
return $dbh;
}