Change toggle scriptt for cperl-mode.