Select Code to Download

sub drop {
    my ($dbh, $table_name) = @_;
    my $quoted_name = $dbh->quote_identifier($table_name);
    $dbh->do("DROP TABLE $quoted_name");
}