2010-04-09T09:00:27 pq

na interessiert dich der grund denn gar nicht?
... or die "Couldn't connect: $DBI::errstr";

DBI liefert einen grund, warum ein connect nicht geklappt hat. der steht in $DBI::errstr. lass dir den erstmal ausgeben.

Oder gleich beim connect RaiseError => 1 mitgeben, dann stirbt DBI auch schoen brav automatisch, und man muss nicht mehr den Erfolg jeder einzelnen Methode abfragen. Und der Grund steht auch gleich in der Fehlermeldung.