(setq auto-insert-copyright (user-full-name))

(setq auto-insert-alist
    '(
      ((perl-mode . "Perl Program")
      nil
      "#! /usr/bin/perl -w\n\n"
      "# File: " (file-name-nondirectory buffer-file-name) "\n"
      "# Time-stamp: <>\n#\n"
      "# Copyright (C) " (substring (current-time-string) -4)
      " by " auto-insert-copyright "\n#\n"
      "# Author: "(user-full-name) "\n#\n"
      (progn (save-buffer)
        (shell-command (format "chmod +x %s" (buffer-file-name)))
      "")
      "# Description:\n# " _ "\n"
     )
))