Select Code to Download

use DBI;
use strict;
...

if ($sth){print "Table exists\n"}
else{print "No such table\n"}