Ad (1):

This is done already in the original post.

Ad (2):

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

Update: Strike part #2, mizzunderstood scope and context... See below for exhaustive answer.