(add-hook 'cperl-mode-hook '(lambda () (local-set-key '[(control c) (control t)] 'my-perltidy)))