(fset 'perltidy
   "\C-xh\C-[1\C-[|perltidy\C-m")

(global-set-key [f11] 'perltidy)