The line(s)

$dbh = DBI->connect(...) || die "DB connect failed: " . $dbh->errstr;
[download]

won't print anything useful upon failing to create $dbh, since you can't in this case call a method on an object whose construction failed. You probably want something more like:

$dbh = DBI->connect(...) || die "DB connect failed: ", DBI->errstr;
[download]

Update: jZed++!