if ($dbh = DBI->do('dbi:mysql: xxxxx','root','')) {
    print "Table exists\n"
} 
else {
    print "Table does not exists";
}