ich finde, es bringt absolut nichts, prepare/execute/... in eval zu setzen; sowas braucht man hoechstens, wenn man beim connect mit RaiseError => 1 arbeitet... Wenn man jedoch auf RaiseError => 1 verzichtet, kann man da wunderbar den Returncode abfragen, und man bekommt mit $dbh/$sth->errstr oder $DBI::errstr wunderschoene Fehlermeldungen... oder mit ->err auch was numerisches... und das ist einem eval in Kombination mit RaiseError => 1 wohl um einiges ueberlegen...

Und auch beim disconnect reicht i.d.R.
ref($dbh) and $dbh->disconnect(); ...\n\n

<!--EDIT|Strat|1108937975-->