(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
"}"
  )