perl ./rename 'tr/A-Z/a-z/' *