gistfile1.vim

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

noremap ,us :call AddUse()<CR>