Hi,

readdir is raw eggs, what you want is cake ( Path::Tiny or Win32::Unicode )

#!/usr/bin/perl --
use strict; 
use warnings;
use Path::Tiny qw/ path /;
my @files_dirs = path( "C:/" )->children;
my @files = grep { $_->is_file } @files_dirs;
my @dirs  = grep { $_->is_dir  } @files_dirs;
...
[download]

#!/usr/bin/perl --
use strict; 
use warnings;
use Win32::Unicode ;
my @files = file_list( 'C:/' );
my @dirs  = dir_list( 'C:/' ); 
...
[download]