function phil-fix-names --wraps=perl-rename\ \'y/A-Z/a-z/\'\ \*\ \&\&\ perl-rename\ \'y/\ /-/\'\ \* --description alias\ phil-fix-names\ perl-rename\ \'y/A-Z/a-z/\'\ \*\ \&\&\ perl-rename\ \'y/\ /-/\'\ \*
  perl-rename 'y/A-Z/a-z/' * && perl-rename 'y/ /-/' * $argv; 
end