nmap <C-K> <ESC>!!print_perl_debug STDERR %<RETURN>:w<CR>