(require 'cperl-mode)
(defalias 'perl-mode 'cperl-mode)

(defun cperl-run ()
  (interactive)
  (if (buffer-modified-p)
      (if (y-or-n-p "Save buffer? ")
	  (save-buffer)
	(error "Failed to save buffer.")))
  (perldb (concat "/mit/perl5/bin/perl -w "
		  (buffer-file-name))))
      

(cperl-define-key (read-kbd-macro "C-c C-c") 'cperl-run)
(cperl-define-key (read-kbd-macro "C-c C-h m") 'cperl-perldoc-at-point)

(setq Info-default-directory-list
      (append Info-default-directory-list
              '("/mit/seven/info")))

(setenv "PERL5LIB" (concat (getenv "PERL5LIB")
			   ":/mit/seven/lib/site_perl/5.6.0"))