fixing perl errors when adding clients/vendors/employees, 1231