use DBI;
eval { $dbh = DBI->do('dbi:mysql: xxxxx','root','')
 or die "Connection Error: $DBI::errstr\n"} ;



    if ($dbh == 'undef') {

           print "Table  does not exist.\n";
    }
    else {
        print "table exist";
    }