Select Code to Download

@perl -MWin32::Clipboard -0777 -e "$c=Win32::Clipboard(<>);" "%1"

(fset 'my-copy-whole-buffer "\C-xh\367")

(global-set-key "\C-a" 'my-copy-whole-buffer)

" this is the mapping created (for command mode)
" like gvim shows it in response to :map command
...
" :map <Ctrl-V> <Ctrl-A> yggvG <Ctrl-V> <Escape>

map 
 yggvG