        (upcase name)
        ")"
        (if value (concat " = " value) "")
-       ";\n") 
+       ";\n")
     (if value (insert value))))
-  
+
 (defun b-perl-do-insert-method (name body type)
     (goto-char (point-max))
     (re-search-backward "^1;$")

                (file-name-nondirectory (buffer-file-name))))

	 (filetype
	  (or (first (member 
	      (progn (string-match "\\(....\\)[0-9]*$" basename)
                      (match-string 1 basename))
		 (mapcar 'car template-table)))

  (interactive)
  (b-set-copyright-owner)
  (insert "# " (b-copyright) "
")
  ;;; template-table elements: (file-suffix template &optional post-function)
  (let* ((template-table '(("List" "ListModel();
