Select Code to Download

use File::Find;
...
      warn "rename $get_files to $newfile failed: $!\n";
    }
 }

my @rtf_in_dir = glob("$dir/*.rtf");

use File::Find;
my @rtf_in_subddirs;
...
  }
}
find(\&wanted, $dir);