# untested if ($rc == WHATEVER_ERROR_IS_GENERATED_BY_DUPLICATE) { # you can also test ($db->Error() =~ /some value/) next; } else { die qq(SQL fail "$rc":), $db->Error(),qq(n); }