use strict;
use warnings;
use feature 'say';
use Data::Dump 'dd';
use Time::HiRes 'time';
use File::Glob ':bsd_glob';
use Fcntl ':mode';
use File::stat;
use Win32::LongPath;

STDOUT-> autoflush;

my $dir = 'c:/program files';

{ 
    print "testing glob... ";
    my $t = time;
    my @to_do = ( $dir );
    my @result;
    
    while ( my $item = shift @to_do ) {
        my $stat = stat $item;
        next unless $stat;
        my $mode = $stat-> mode;
        if ( $mode & S_IFREG ) {
            push @result, [ $item, $stat-> size ];
        }
        elsif ( $mode & S_IFDIR ) {
            unshift @to_do, 
                grep { !m{ /\.{1,2}$ }x } 
                    bsd_glob( "$item/{.,}*" )
        }
    }
    printf "%d files, %.03f s\n", scalar( @result ), time - $t;
}
{
    print "testing readdir... ";
    my $t = time;
    my @to_do = ( $dir );
    my @result;
    
    while ( my $item = shift @to_do ) {
        my $stat = statL $item;
        next unless $stat;
        if ( $stat-> { mode } & S_IFREG ) {
            push @result, [ $item, $stat-> { size }];
        }
        elsif ( $stat-> { mode } & S_IFDIR ) {
            my $d =  Win32::LongPath-> new;
            $d-> opendirL( $item ) or next;
            unshift @to_do, 
                map { "$item/$_" } 
                    grep { !m{ ^\.{1,2}$ }x } 
                        $d-> readdirL;
        }
    }
    printf "%d files, %.03f s\n", scalar( @result ), time - $t;
}

__END__

testing glob... 18670 files, 3.492 s
testing readdir... 18670 files, 1.863 s