Select Code to Download

$dbh->{RaiseError} = 1; # only need to do this once
...
...
  # unable to insert, error message is in $@
  ...
}