Select Code to Download

my (@files) = glob "c:/progs/*"; #list of progs
my (@dirs, @binfiles, @textfiles);
...
  -f $f  && -B $f ? push @binfiles, $f :
  -f $f  && -T $f ? push @textfiles, $f : next; 
}