1 store-macro
   save-file
   shell-command &cat "/usr/bin/perl -c " $cfilname
~endm
bind-key execute-macro-1 ^A-c