$sth->execute || 
die "Could not execute SQL statement ... maybe invalid?"; 

die "Error connecting: '$DBI::errstr'";
[download]

doesn't produce much useful information. Put the errstr in the first die...

$sth->execute || 
die "Could not execute SQL statement ... " . $dbh->errstr;
[download]

rdfield