You could use something like:

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

Abigail