(local-set-key '[(control b) (control s)] 'ska-skel-perl-sub)