Select Code to Download

use strict;
use File::Find;
use Fcntl ':mode';
...
      $stats{$cur_dir}{links}++ if ( $mode & S_IXOTH );
   }
}

Directory             Dirs      Files        Links
/path/to/dir1         10/8      12/10        0/0
...
/path/to/dir1         37/35     67/43        0/0
/path/to/dir1/sub1    27/27     55/33        0/0
/path/to/dir1/sub1/a1 20/20     50/30        0/0