(setq auto-mode-alist (append '(("\\.t$" . cperl-mode)) auto-mode-alist))