perl -v

This is perl 5, version 28, subversion 0 (v5.28.0) built for MSWin32-x86-multi-thread-64int

perl -e "opendir my $dir,'c:/windows/system32'; my $files; while (my $ele= readdir($dir)){$files++ } print qq(found $files elements in system32\n)"

found 3001 elements in system32


perl -v

This is perl 5, version 26, subversion 0 (v5.26.0) built for MSWin32-x64-multi-thread

perl -e "opendir my $dir,'c:/windows/system32'; my $files; while (my $ele= readdir($dir)){$files++ } print qq(found $files elements in system32\n)"

found 4576 elements in system32