eval { $entry = Contacts->create( \%hash ); };
if( $@ ) {
  ... handle the exception from CDBI or passed upwards by ...
  ... CDBI as mentioned in last two paras under EXCEPTIONS ...
}