I hope these are pasted right.
(global-set-key "\M-3" 'script-blank)
(global-set-key "\M-4" 'subroutine-blank)
(define-skeleton script-blank
"Insert a blank script."
nil
"#!/usr/bin/perl
\n
use strict;
use warnings;
# et cetera... Looooooong list of modules which
# are easier to cut when unused than type otherwise.
\n
_
\n
\n
"exit 0;
__DATA__
"
)
;;--------------------------------------------------------------------
(define-skeleton subroutine-blank
"Insert a blank sub."
nil
"sub " _ " {"
\n
\n
\n
\n
"}"
)