Select Code to Download

use File::Find;
use strict;
...
   find(sub { $total += -s }, $dir);
   print "$dir: $total\n";
}

use File::Find;
use File::Spec;
...

   @dirs;
}