perl -MFile::Find -e "find( sub{ rename( $_, uc $_ ) if -f $_; }, $ARGV[0] );" path/name