Select Code to Download

use File::Slurp;
my @dirs = grep { -d "$oldFolder/$_" } read_dir($oldFolder);
print "$_\n" for @dirs;