(define-key global-map "\C-q" 'myperl-check-syntax)