Select Code to Download

function! Perl()
" autoindent
...

" Call Perl() when you open a Perl file
autocmd FileType perl call Perl()

" restore defaults (incase I :e or :sp)
  set cinkeys&
...
" I don't rememer these OTTOMH; :help cinoptions to learn more
  set cinoptions+=+2s,(1s,u0,m1
  set cindent

" SmartTab wrapper
function! SmartTab()
...

" turn on SmartTabs
inoremap <tab> <c-r>=SmartTab()<cr>

  set statusline=%f%{CurrSubName()}\ %m%h%r\ %=%25(%-17(%l\,%c%V%)\ %p
+%%%)
  set laststatus=2
...
      return -1
    endif
  endfunction

  map !! :!perl -c %<CR>
  map ## :s/^/#/<CR>
  map !# :s/^#//<CR>