set statusline=%f%{CurrSubName()}\ %m%h%r\ %=%25(%-17(%l\,%c%V%)\ %p%%%)
  set laststatus=2
  set maxfuncdepth=250

  function! CurrSubName()
    let g:subname = ""
    let g:subrecurssion = 0

    " See if this is a Perl file
    let l:firstline = getline(1)

    if ( l:firstline =~ '#!.*perl' || l:firstline =~ '^package ' )
      call GetSubName(line("."))
    endif

    return g:subname
  endfunction

  function! GetSubName(line)
    let l:str = getline(a:line)

    if l:str =~ '^sub'
      let l:str = substitute( l:str, " *{.*", "", "" )
      let l:str = substitute( l:str, "sub *", ": ", "" )
      let g:subname = l:str
      return 1
    elseif ( l:str =~ '^}' || l:str =~ '^} *#' ) && g:subrecurssion == 1
      return -1
    elseif a:line > 2
      let g:subrecurssion = g:subrecurssion + 1
      if g:subrecurssion < 190
        call GetSubName(a:line - 1)
      else
        let g:subname = ': <too deep>'
        return -1
      endif
    else
      return -1
    endif
  endfunction