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

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

##</code><code>##

#hubba bubba
print join "\n", @ARGV;