function! PerlArgs()
   let @p = getline(".")[1:]
endfunction

let mapleader=" "
map <Leader><space> :VimuxRunCommand("perl " . bufname('%') . " " . @p)<CR>
map <Leader>a :call PerlArgs()<CR>