(defun kjetilho-set-indent-level (&optional arg)
  "Set indent level to prefix argument."
  (interactive)
  (set (pcase major-mode
         ('perl-mode 'perl-indent-level)
         ('cperl-mode 'cperl-indent-level)
         ('puppet-mode 'puppet-indent-level)
         ('ruby-mode 'ruby-indent-level))
       (if arg arg 4)))