Select Code to Download

$sth->execute or do_error($DBI::errstr);

...
  return if $error =~ /Relation already exists/;  # or whatever the ac
+tual error is
  die "A serious problem occured. According to the rumours: $error.\n"
+;
}