Select Code to Download

my $d =  Win32::LongPath-> new;
…
$d-> readdirL;

dir: C:   #dirs: 79923 #files: 305816 #nodes: 385739  1/s: 5749
dir: D:   #dirs: 7776 #files: 115255 #nodes: 123031  1/s: 14499
dir: Q:   #dirs: 907 #files: 16095 #nodes: 17002  1/s: 12374
dir: C:   #dirs: 67183 #depth: 13 #files: 259099 #nodes: 326282  1/s: 
+5558 (skipping 'C:/Users')

# recurse if dir
  if (($file ne '.') && (($stat->{attribs}
...
    search_tree ($name);
    next;
  }

use strict;
use warnings;
...
    say summary( FS_sweep( "$dev:", \&FS_file_big ) );
    output;
}