Does you script do anything like this:

my $sth = $dbh->prepare($sql) 
   || die print "$0:Error prepare sql [$DBI::errstr]\n";
[download]

If not maybe you could add the printing out of $DBI::errstr.