#!/usr/bin/perl
use warnings;
use 5.012;
use DBI;

my $host = 'hostname';
my $port = 2000;
my $db = 'db1.mdb';
my $dsn = "DBI:ODBC:$db";
my $dsn = "DBI:Proxy:hostname=$host;port=$port;dsn=$dsn";
my $dbh = DBI->connect( $dsn, undef, undef, { RaiseError => 1, PrintError => 0 } ) or die $DBI::errstr;

my $table = 'my_test_table';

my $sql = "DROP TABLE $table";

### 1
do { local $dbh->{RaiseError} = 0; $dbh->do( $sql ); };

### 2
if ( $table ~~ @{[ $dbh->tables() ]} ) {
	$dbh->do( $sql );
}

### 3
eval{ $dbh->do( $sql ); };

##################################