use File::Find::Rule;

rename $_ => "${_}z" or warn "$0: $! [$_]"
  for find(file => in => $ARGV[0]);