Saturday, June 13, 2009

Change file name case

perl -e 'foreach $file (glob "*") { rename $file, lc($file) }'