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

##</code><code>##

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

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

##</code><code>##

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

" this is the actual map command as you type it
" less-than and greater-than indicate key to type
" :map <Ctrl-V> <Ctrl-A> yggvG <Ctrl-V> <Escape>

map 
 yggvG