Select Code to Download

  ... 
  push @files, grep { -f  and  -s $_ >= $min_size  and  -s $_ <= $max_
+size }
               read_dir( $d, prefix => 1 );
  ...

...} # loop

my $c = @directories;
...