You could probably do something like this:

foreach ....( ... )
{
    my $rc = $dbh->do($sql);
    if(!$rc) {
        if($dbh->err == 4305) {
            # print a warning here?
            last;
        } else {
            $app->log(...);
        }
    }
}
...
[download]