(condition-case ()
    (quietly-read-abbrev-file)
  (file-error nil))

(add-hook 'cperl-mode-hook
          (lambda ()
            (setq abbrev-mode t)))