$sth -> execute or     $dbh -> errstr =~ /table \w+ already exists/ 
                or die $dbh -> errstr;  # Or warn.