Insert use statement

insert_perl_module.el

;; insert 'use Module' which is at cursor.
(define-key cperl-mode-map (kbd "C-c C-m") 'cperl-insert-use-statement)

(defun cperl-insert-use-statement ()
  "use statement auto-insertion."
  (interactive)
  (let ((module-name (cperl-word-at-point))
        (insert-point (cperl-detect-insert-point)))
    (save-excursion
      (let ((use-statement (concat "\nuse " module-name ";")))
        (if (not (search-backward use-statement nil t))
            (progn
              (goto-char insert-point)
              (insert use-statement))
          (error "'%s' is already imported" module-name))))))

(defun cperl-detect-insert-point ()
  (save-excursion
    (if (re-search-backward "use .+;" 1 t)
        (match-end 0)
      (progn
        (string-match "^$" (buffer-string))
        (match-end 0)))))