Select Code to Download

    my $sth = $dbh->prepare("SELECT constraint_name FROM INFORMATION_S
+CHEMA.CONSTRAINT_COLUMN_USAGE WHERE TABLE_NAME = '$tbl'");
    $sth->execute;
...
        next unless ($rel =~ /ID/);
        $dbh_tmp->do("ALTER TABLE $tbl DROP CONSTRAINT $rel");
    }

my $temp = $dbh->selectcol_arrayref($your_sql_statement);