source /usr/local/share/vile/filters.rc
define-submode perl shiftwidth 4
define-submode java shiftwidth 4
bind-key execute-named-command ;
bind-key repeat-char-scan :
bind-key down-page g
bind-key previous-page v
bind-key next-window ^I
bind-key undo-changes-backward u
bind-key redo-changes-forward U
unbind-key q
set autoindent
set nobackspacelimit
; set cmode
; set c-suffixes \\.\\(\\([Cchis]\\)\\|CC\\|cc\\|cpp\\|cxx\\|nl\\|hxx\\|scm\\)$
; set c-shiftwidth 4
set csw 4
; set c-tabstop 8
; set c-preamble "^#\s*!\s*\/.*perl"
set noerrorbells
set linewrap
set magic
set printing-low 160
set printing-high 255
set report 1
set ruler
set showmatch
set showmode
set notabinsert
set undolimit 0
set nowarn-rename

 1 store-macro
   goto-beginning-of-file
   append-string "#!/usr/bin/perl\n\n"
   append-string "use strict;\n"
   append-string "use warnings;\n"
   append-string "no warnings qw /syntax/;\n"
   set-mode "perlmode"
   position-window b
   open-line-below-and-append-chars
~endm


 2 store-macro
   save-file
   shell-command &cat "perl " $cfilname
~endm
 
 
 3 store-macro
   save-file
   shell-command &cat "perl -c " $cfilname
~endm
   
   
bind-key execute-macro-1 ^A-p
bind-key execute-macro-2 ^A-r
bind-key execute-macro-3 ^A-c