Perhaps you need PrintError off (i.e.:  $dbh->{PrintError} = 0;) because you are doing that already yourself (by calling die + message).