imap ,perl #!/usr/bin/perl<CR><CR>use strict;<CR>use warnings;<CR><CR><esc>:w<ENTER>:!chmod 755 %<ENTER><ENTER>i