Select Code to Download

print "table exists" if grep {"tablename" eq $_ } $dbh->tables;

#!/usr/bin/perl -w
use DBI;
...
}

$dbh->disconnect();