gistfile1.vim

" perl: add 'use' statement for package name under the cursor
function! AddUse()
    let line = line('.')
    let col = col('.')
    normal! yiw
    let default = @0
    let package = input('Package? ', default)
    if (search('^use\s\+'.package, 'bnw') == 0)
        call search('^use\s\+', 'b')
        put ='use ' . package . ';'
        call cursor(line+1, col)
    endif
endfunction

nnoremap ,us :<C-u>call AddUse()<CR>