    (intern-soft
     (concat "b-perl-template-" (or (file-name-extension buffer-file-name) "")))))
 
-;TODO: update the copyright on the file on first modification
-(defun b-perl-template- nil
-  "inserts a template for a perl program"
-  (interactive)
-  (let
-      ((name (read-string "program name: "
-			  (file-name-sans-extension (buffer-name))))
-       (class (read-string "calls ShellUtil.")))
-    (b-set-copyright-owner)
-    (insert "#!perl -w
-# " (b-copyright) "
-# $Id" "$
-use strict;
-
-=head1 NAME
-
-" name " - calls ShellUtil." class "
-
-=head1 SYNOPSIS
-
-" name " [options] command [args...]
-
-=head1 DESCRIPTION
-
-See ShellUtil. " class "
-
-=cut
-
-#=IMPORTS
-use Bivio::ShellUtil;
-
-#=VARIABLES
-Bivio::ShellUtil->required_main(" class " => @ARGV);
-
-=head1 SEE ALSO
-
-ShellUtil." class "
-
-=head1 COPYRIGHT
-
-" (b-copyright) "
-
-=head1 VERSION
-
-$Id" "$
-
-=cut
-
-#" "Local Variables:
-#mode:cperl
-#End:
-")
-    (re-search-backward "^=head1 NAME")
-    (forward-line 2)
-    (end-of-line)
-    (save-excursion
-      (cperl-find-pods-heres))))
-
 (defun b-perl-template-btest nil
   "inserts a template for an acceptance test"
   (interactive)
   (b-set-copyright-owner)
   (insert "# " (b-copyright) "
-# $Id" "$
 test_setup('" (car (b-perl-which-project (buffer-file-name))) "');
 "))
 

	(progn
	  (goto-char (point-min))
	  (re-search-forward (concat "-" tag "$")))
      (progn 
	(goto-char (point-max))
	(forward-line -2)
	(end-of-line)))

[
    from_literal => [
        '' => UNDEF(),

    ],
];
" (lambda ()
