chmod 0777, $File::Find::name
    or  warn "Can't chmod 077, $File::Find::name: $!\n";