Help for this page

Select Code to Download

Select or download this

use strict;
use File::Find;
...
print "Summary of $source\n";
print "Folders: $folders\n";
print "Files: $files\n";