Select Code to Download

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