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.

im übrigen frage ich mich, ob das mit dem upload hook so effizient ist, da wird für jeden chunk eine neue datenbank-connection aufgemacht. das kann dann schon ganz schön viel last erzeugen.