(setq kill-whole-line t)
(setq next-line-add-newlines nil)
(setq require-final-newline t)
(setq make-backup-files nil)
(setq line-number-mode t)
(setq column-number-mode t)
(setq default-major-mode 'text-mode)

(unless (fboundp 'kbd)
  (defmacro kbd (key-sequence)
    (read-kbd-macro key-sequence)))

(load "perl-mode")
(define-key perl-mode-map (kbd ";") 'self-insert-command)